perm filename CNVR.LAP[UCI,SYS] blob
sn#058504 filedate 1973-08-12 generic text, type T, neo UTF8
(DEFPROP CNNVERFNS (CNNVERFNS (SPECIAL CSYSFNS DATUM CEXPRS OBLIST) OBMAP CDUMP CSYSFNS BOUNDP COMMENT NEWFNS = →
> < + TYIPEEK MAKREADTABLE GRINPROPS $$$SETQ PI-OFF PI-ON SSTATUS DELQ DELETE (DECLARE (SPECIAL OBARRAY READTABL→
E ERRLIST BASE IBASE)) (DECLARE (SPECIAL *TOP UARGS BODY EARGS CHALOBV BVARS ALINK CLINK EXP FRAME* FREEVARS FRA→
MEVARS LEVNUM PC RUNF TEM TEM1 TYPE VAL VARS CINTERRUPT SERRLI ALLOW READY GLOBALS * ** ←) (*FEXPR CDEFGEN CDEFU→
N CERR CONNIVER CSETQ : /@ /,) (*LEXPR MATCH ACCESS CONTROL CSET RVALUE VLOC RUN TRYASSIGN VALUE)) (PROGN (SETQ →
RUNF NIL) (SETQ SERRLI NIL) (SETQ ** (QUOTE **)) (SETQ GLOBALS (QUOTE ((NIL NIL) (T T)))) (SETQ *TOP (QUOTE *TOP→
))) (COMMENT THE FRAME FORMAT IS AS FOLLOWS ((IVARS . PC) (BVARS . ALINK) EXP . CLINK)) (PROGN (SETQ FREEVARS (Q→
UOTE (VAL VARS UARGS BODY EARGS TEM TEM1 ALLOW))) (SETQ FRAMEVARS (QUOTE (CHALOBV FRAME* BVARS ALINK CLINK EXP C→
INTERRUPT READY)))) BVARS ALINK EXP CLINK BODY (COMMENT THE HACK REALLY BEGINS HERE -- RUN1 IS THE SYSTEM DRIVER→
) RUN RUN1 CAP HANDLE START STOP *STOP U-LOSE CERR EAR TOP CINTERRUPT ALLOW (COMMENT DISPATCH IS THE "PUSHJ" FOR→
CONNIVER) (DECLARE (SPECIAL ALINK1 EXP1 RETAG SAVE)) DISPATCH SAVEUP SAVEV (COMMENT FUNCTION CALLS RETURN VIA "→
POPJ") POPJ RESTORE REST1 (DECLARE (UNSPECIAL ALINK1 EXP1 RETAG SAVE)) BIND1 CLOSE (COMMENT MOBY BINDER -- NORMA→
L FUNCTION LISTS) ARGB ARGB1 ARGQ (COMMENT BIND UP "OPTIONAL"S AND "REST"S) OPTMATCH OPTMATCH1 RESTMATCH EVREST →
EVREST1 (COMMENT WHEN RUN OUT OF ARGS BUT HAVE SOME "OPTIONAL"S OR "REST"S) FINVAR FINVAR1 FINVAR2 FINVAR3 (COMM→
ENT BINDS "AUX" VARIABLES) AUXB AUXB1 AUXB2 CPROG PROG PROGBIND PROGB1 (COMMENT BASIC PROG ITERATION LOOP) LINE →
LINE1 (COMMENT EVALUATES ARGUMENTS TO LISP EXPRS SUBRS AND LSUBRS) EVARGS ARGS1 (COMMENT LOGICAL FLOW OF CONTROL→
FUNCTIONS) CCOND CONDLP COND1 COND IAND IAND1 AND IOR IOR1 OR (COMMENT USERS OF FRAMES -- FLOW OF CONTROL CONTR→
OLLERS) CGO GO1 GO CEXIT EXIT1 EXIT2 EXIT CRETURN RETURN1 RETURN CDISMISS DISMISS CONTINUE CONT1 CONT2 (COMMENT →
RELATIVE EVALUATORS) ICEVAL CEVAL1 CEVAL2 CEVAL ICALL CALL1 CALL INVOKE TRY1 TRY2 TEXT FR (COMMENT IDENTIFIER MA→
NIPULATORS) VFRAME VLOC RVALUE (DECLARE (SPECIAL ID)) IVAL (DECLARE (UNSPECIAL ID)) ICSETQ CSETQ0 CSETQ1 CSETQ C→
SET UNASSIGN (COMMENT FRAME CONSTRUCTORS) CHAUX TAG ACTBLOCK ACCESS CONTROL CLOSURE FRAME (COMMENT VERY DANGEROU→
S USER (HA!) FUNCTIONS) SETACCESS SETCONTROL (COMMENT DEBUGGING AIDS) EXPRESSION BACKTRACE LISTENB LISTEN CONDB →
PROGB CEVALB UPDATEB UPDATE SETB SET PROGBINDB (COMMENT USER INTERFACE) CDEFUN GENLEV : /@ ! /, CPRIN1 CPRINT CP→
-MACR CP-QUOTE QUOTE CP-*TAG *TAG *CLOSURE CP-*FRAME *FRAME *AU-REVOIR CP-MATCH !' !@ CP-!" COLMAC COMMAC ATMAC →
EXMAC NXTCHR SEPARATOR (DECLARE (SPECIAL CFRAMES CNUM CONTEXT DATUM CMARKERS TYPE PATTERN GLOBAL INCCON NUMACT N→
UMCON *CNUM *IF-ADDEDS *IF-NEEDEDS *IF-REMOVEDS *INDEXTHRESHOLD *ITEMS NEW) (*FEXPR !" CDEFUN CERR CSETQ : /, GC→
CON IF-ADDED IF-NEEDED IF-REMOVED) (*LEXPR BIND ABSENT ADD CEVAL CFRAME CSET VLOC DGET DGET+ DPUT DPUT+ DREM DRE→
M+ FETCH FETCHI FETCHM INSERT KILL MATCH NOTE OBJECT POP-CONTEXT PRESENT DATA-INIT PUSH-CONTEXT REAL REALIZE REM→
OVE RVALUE UNREAL UNREALIZE) (*EXPR ARGS DATUM CMARKERS PATTERN) (**ARRAY FRAMES RFRAMES)) (SETQ *INDEXTHRESHOLD→
12) OBJECT TMA TFA (DECLARE (UNSPECIAL CMARKERS TYPE)) MAKE-METHOD (DECLARE (SPECIAL CMARKERS TYPE)) IF-NEEDED →
IF-ADDED IF-REMOVED DATA-INIT (DECLARE (UNSPECIAL PATTERN)) FETCH FETCHI FETCHM FETCHI1 FETCHM1 (DECLARE (SPECIA→
L PATTERN)) REAL UNREAL PRESENT ABSENT (DECLARE (UNSPECIAL PATTERN)) SEARCH (DECLARE (SPECIAL PATTERN)) REALITY →
REALITY1 DATUM ADD CREMOVE REMOVE INSERT KILL ACTUALIZE UNACTUALIZE (DECLARE (UNSPECIAL DATUM) (SPECIAL PAT CON)→
) REALIZE UNREALIZE (DECLARE (SPECIAL DATUM) (UNSPECIAL PAT CON)) CALLDEMONS RUNDAEMONS NXTMET REVEAL HIDE ADDCF→
RAME FINDCFRAME CANCEL MERGEN MERGE DPUTCF DGETCF DREMCF DPUT DGET DREM DPUT+ DGET+ DREM+ DPUT1 DGET1 DREM1 MENT→
IONERS (DECLARE (UNSPECIAL DATUM)) C-MARKER (DECLARE (SPECIAL DATUM)) MFINTERSECT (DECLARE (UNSPECIAL CMARKERS))→
INVISIBLE (DECLARE (UNSPECIAL CFRAMES)) GETCONTEXT (DECLARE (UNSPECIAL PATTERN)) ISEARCH ISEARCH1 ASEARCH ASSQ1→
(DECLARE (SPECIAL THING PFORM INDEX)) INDEX (DECLARE (UNSPECIAL PFORM INDEX)) UNINDEX (DECLARE (UNSPECIAL THING→
)) INDEX1 UNINDEX1 (DECLARE (SPECIAL PATTERN)) ANALYZE (DECLARE (UNSPECIAL PATTERN)) CMARKERS PATTERN DELTHING D→
ELITEM MEMCAR FIRSTCAR< ITEM DATUMIZE ATOMIZE PUSH-CONTEXT POP-CONTEXT (DECLARE (UNSPECIAL CFRAMES)) NEW-CONTEXT→
(DECLARE (SPECIAL CFRAMES)) SPLICE (DECLARE (SPECIAL EXPR)) IN-CONTEXT (DECLARE (UNSPECIAL EXPR)) PATH (DECLARE→
(SPECIAL PATTERN)) FINALIZE (DECLARE (UNSPECIAL PATTERN)) CFRAME ORDERED NEWCNUM CNUMSINUSE *GCCON GCCON (DECLA→
RE (SPECIAL PATTERN)) FLUSH (DECLARE (UNSPECIAL PATTERN)) REMCFRAME !" !"1 KTH (DECLARE (SPECIAL TEM TEM1 TEM2 A→
LINK BVARS EXP CLINK FRAME* VAL) (*FEXPR CERR INSTANCE PROPOSE /,) (*LEXPR CSET VFRAME ACCESS CONTROL)) ALINK CL→
INK TRY-NEXT NEXT SETUP GENGO METGO REGO TBLOCK UNBLOCK NOTE ADIEU AU-REVOIR ENTER PROPOSE INSTANCE CPY GET-POSS→
IBILITIES SET-POSSIBILITIES GENERATE (DECLARE (SPECIAL MALIST MALIST1 MALIST2 MALISTV1 MALISTV2 NOBIND VALV) (*L→
EXPR MATCH TRYASSIGN RVALUE VLOC) (*FEXPR CERR)) MATCH (DECLARE (UNSPECIAL MALIST1 MALIST2)) MATCH1 (DECLARE (UN→
SPECIAL MALISTV2)) COMMA (DECLARE (UNSPECIAL MALISTV1)) MATCH2 !? !> TRYASSIGN !< !; CHECKVAL (DECLARE (UNSPECIA→
L VALV)) FINDVARS HASMUSTASSIGNS HASVARS VARSUBST ACTOR ACTORSUBST GETSPEC MBIND MBINDV (DECLARE (UNSPECIAL NOBI→
ND)) MBINDR !/, !/,1 SATISFY (DECLARE (UNSPECIAL MALIST)) MSET ASSIGNED? ; CNVINT) VALUE)
(LAP OBMAP SUBR)
(PUSH P (SPECIAL OBLIST) S)
(PUSH P 1)
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG7)
(HLRZ@ 1 -1 P)
(PUSH P 1)
TAG2 (MOVE 1 0 P)
(JUMPE 1 TAG16)
(HLRZ@ 1 0 P)
(CALL 1 (E NCONS) S)
(MOVE 2 1)
(MOVE 1 -1 P)
(CALL 2 (E APPLY#) S)
(HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG2)
TAG16 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(SUB P (C 1 0 1 0))
(JRST 0 TAG1)
TAG7 (MOVEI 1 (QUOTE NIL))
(SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP CDUMP FSUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL DATUM) S)
(0 0 (SPECIAL CEXPRS) S)
(PUSH P 1)
(HRRZ@ 1 1)
(JUMPN 1 TAG5)
(MOVEI 1 (QUOTE DATUM) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE CEXPR) S)
(CALL 2 (E XCONS) S)
(HLRZ@ 2 0 P)
(CALL 2 (E XCONS) S)
(MOVEM 1 0 P)
TAG5 (MOVE 2 0 P)
(MOVEI 1 (QUOTE CEXPR) S)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG10)
(MOVEI 1 (QUOTE (LAMBDA (X) (COND ((AND (GET X (QUOTE CEXPR)) (NOT (MEMQ X CSYSFNS))) (SETQ CEXPRS (CONS →
X CEXPRS)))))) S)
(CALL 1 (E OBMAP) S)
TAG10 (MOVE 2 0 P)
(MOVEI 1 (QUOTE DATUM) S)
(CALL 2 (E MEMQ) S)
(JUMPE 1 TAG12)
(MOVEI 1 (QUOTE (LAMBDA (X) (COND ((GET X (QUOTE DATUM)) (SETQ DATUM (CONS X DATUM)))))) S)
(CALL 1 (E OBMAP) S)
TAG12 (MOVEI 1 (QUOTE (PRINT NIL)) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE (MAPC (FUNCTION (LAMBDA (Y) (PRINT Y))) DATUM)) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE (PRINT (QUOTE (DATA)))) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE DATUM) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE CEXPRS) S)
(CALL 2 (E XCONS) S)
(HLRZ@ 2 0 P)
(CALL 2 (E XCONS) S)
(CALL 17 (E DSKOUT) S)
(MOVEI 1 (QUOTE NIL))
(SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(DEFPROP CSYSFNS (CSYSFNS UNREALIZE RUNDAEMONS TRY-NEXT TBLOCK GENERATE REALIZE ADIEU AU-REVOIR IN-CONTEXT ADD R→
EMOVE LISTEN) VALUE)
(LAP BOUNDP SUBR)
(PUSH P 1)
(MOVEI 2 (QUOTE VALUE) S)
(CALL 2 (E GET) S)
(PUSH P 1)
(JUMPE 1 TAG5)
(HRRZ@ 1 1)
(PUSH P 1)
(CALL 0 (E UNBOUND) S)
(POP P 2)
(CAMN 1 2)
(JRST 0 TAG5)
(MOVE 1 0 P)
(JRST 0 TAG1)
TAG5 (MOVEI 1 (QUOTE NIL))
TAG1 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP COMMENT FSUBR)
(MOVEI 1 (QUOTE (COMMENT --)) S)
(POPJ P)
NIL
(DEFPROP NEWFNS (NEWFNS NIL) VALUE)
(LAP = SUBR)
(CAME 1 2)
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
(POPJ P)
NIL
(LAP > SUBR)
(JCALL 2 (E *GREAT) S)
NIL
(LAP < SUBR)
(JCALL 2 (E *LESS) S)
NIL
(LAP + SUBR)
(JCALL 2 (E *PLUS) S)
NIL
(LAP TYIPEEK SUBR)
(CALL 0 (E TYI) S)
(JCALL 1 (E UNTYI) S)
NIL
(LAP MAKREADTABLE SUBR)
(PUSH P 1)
(PUSH P (C 0 0 TAG1 0))
(PUSH P (SPECIAL NEWFNS) S)
(MOVEI 2 (QUOTE MAKREADTABLE) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(DEFPROP GRINPROPS (NIL EXPR FEXPR MACRO VALUE SPECIAL CEXPR CINT CPRINT BACKTRACE DATUM) VALUE)
(LAP PI-OFF FSUBR)
(MOVEI 1 (QUOTE (X)) S)
(JCALL 17 (E NILL) S)
NIL
(LAP PI-ON FSUBR)
(MOVEI 1 (QUOTE (X)) S)
(JCALL 17 (E NILL) S)
NIL
(LAP SSTATUS FSUBR)
(MOVEI 1 (QUOTE (X)) S)
(JCALL 17 (E NILL) S)
NIL
(LAP DELQ SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(JUMPN 2 TAG2)
(MOVE 1 -1 P)
(JRST 0 TAG1)
TAG2 (JUMPE 3 TAG4)
(HLRZ@ 1 2)
(CAME 1 -2 P)
(JRST 0 TAG6)
(HRRZ@ 1 2)
(JRST 0 TAG5)
TAG6 (MOVE 3 0 P)
(HRRZ@ 2 -1 P)
(MOVE 1 -2 P)
(CALL 3 (E DELQ) S)
(HRRM@ 1 -1 P)
(MOVE 1 -1 P)
TAG5 (JRST 0 TAG1)
TAG4 (HLRZ@ 1 2)
(CAME 1 -2 P)
(JRST 0 TAG11)
(MOVE 3 0 P)
(HRRZ@ 2 2)
(MOVE 1 -2 P)
(CALL 3 (E DELQ) S)
(JRST 0 TAG1)
TAG11 (MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 2 (E DREMOVE) S)
TAG1 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP DELETE SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(JUMPN 2 TAG2)
(MOVE 1 -1 P)
(JRST 0 TAG1)
TAG2 (JUMPE 3 TAG4)
(HLRZ@ 2 2)
(CALL 2 (E EQUAL) S)
(JUMPE 1 TAG6)
(HRRZ@ 1 -1 P)
(JRST 0 TAG5)
TAG6 (MOVE 3 0 P)
(HRRZ@ 2 -1 P)
(MOVE 1 -2 P)
(CALL 3 (E DELETE) S)
(HRRM@ 1 -1 P)
(MOVE 1 -1 P)
TAG5 (JRST 0 TAG1)
TAG4 (HLRZ@ 2 -1 P)
(MOVE 1 -2 P)
(CALL 2 (E EQUAL) S)
(JUMPE 1 TAG14)
(MOVE 3 0 P)
(HRRZ@ 2 -1 P)
(MOVE 1 -2 P)
(CALL 3 (E DELQ) S)
(JRST 0 TAG13)
TAG14 (MOVE 3 0 P)
(HRRZ@ 2 -1 P)
(MOVE 1 -2 P)
(CALL 3 (E DELETE) S)
(HRRM@ 1 -1 P)
(MOVE 1 -1 P)
TAG13
TAG1 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(PROGN (SETQ RUNF NIL) (SETQ SERRLI NIL) (SETQ ** (QUOTE **)) (SETQ GLOBALS (QUOTE ((NIL NIL) (T T)))) (SETQ *TO→
P (QUOTE *TOP)))
(COMMENT THE FRAME FORMAT IS AS FOLLOWS ((IVARS . PC) (BVARS . ALINK) EXP . CLINK))
(PROGN (SETQ FREEVARS (QUOTE (VAL VARS UARGS BODY EARGS TEM TEM1 ALLOW))) (SETQ FRAMEVARS (QUOTE (CHALOBV FRAME*→
BVARS ALINK CLINK EXP CINTERRUPT READY))))
(COMMENT THE HACK REALLY BEGINS HERE -- RUN1 IS THE SYSTEM DRIVER)
(LAP RUN LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVEI 2 (QUOTE 1))
(MOVE 1 0 P)
(CALL 2 (E =) S)
(JUMPE 1 TAG5)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
(JRST 0 TAG4)
TAG5 (MOVEI 1 (QUOTE NIL))
TAG4 (MOVEM 1 (SPECIAL VAL) S)
(SUB P (C 1 0 1 0))
(JCALL 0 (E RUN1) S)
NIL
(LAP SUBFUN1RUN1 SUBR)
TAG1 (MOVE 1 (SPECIAL CINTERRUPT) S)
(JUMPE 1 TAG10)
(MOVE 1 (SPECIAL ALLOW) S)
TAG10 (JUMPE 1 TAG6)
(CALL 0 (E HANDLE) S)
(MOVEM 1 (SPECIAL PC) S)
(JRST 0 TAG5)
TAG6 (MOVE 1 (SPECIAL PC) S)
(CALL 1 (E CAP) S)
(MOVEM 1 (SPECIAL PC) S)
TAG5 (JRST 0 TAG1)
(POPJ P)
NIL
(LAP RUN1 SUBR)
(MOVE 1 (SPECIAL RUNF) S)
(JUMPE 1 TAG6)
(MOVEI 1 (QUOTE (CONNIVER ALREADY RUNNING)) S)
(CALL 17 (E CERR) S)
TAG6 (MOVEI 2 (QUOTE ARRAY) S)
(MOVEI 1 (QUOTE CONNIVREAD) S)
(CALL 2 (E GET) S)
(MOVEI 2 (QUOTE 12))
(MOVEI 3 (QUOTE 12))
(JSP 6 SPECBIND)
(0 2 (SPECIAL BASE) S)
(0 3 (SPECIAL IBASE) S)
(0 1 (SPECIAL READTABLE) S)
(JSP 6 SPECBIND)
(0 0 (SPECIAL RUNF) S)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 1 (QUOTE T) S)
(MOVEM 1 (SPECIAL RUNF) S)
(MOVE 1 (SPECIAL SERRLI) S)
(MOVEM 1 (SPECIAL ERRLIST) S)
TAG1 (MOVEI 1 (QUOTE ((SUBFUN1RUN1))) S)
(CALL 17 (E ERRSET) S)
(MOVEM 1 0 P)
(CAIE 1 (QUOTE %%%STOP) S)
(JRST 0 TAG16)
(MOVE 1 (SPECIAL VAL) S)
(JRST 0 TAG7)
TAG16 (JUMPN 1 TAG17)
(MOVEI 1 (QUOTE (GO (CEVAL EAR))) S)
(MOVEM 1 (SPECIAL TEM1) S)
TAG17 (JRST 0 TAG1)
TAG7 (PUSHJ P SPECSTR)
(PUSHJ P SPECSTR)
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP CAP SUBR)
(MOVEI 2 (QUOTE NIL))
(JCALL 2 (E APPLY#) S)
NIL
(LAP HANDLE SUBR)
(HRRZ@ 1 (SPECIAL CINTERRUPT) S)
(PUSH P (SPECIAL CINTERRUPT) S)
(MOVEM 1 (SPECIAL CINTERRUPT) S)
(MOVEI 4 (QUOTE *TOP) S)
(MOVE 3 (SPECIAL FREEVARS) S)
(MOVE 2 (SPECIAL PC) S)
(HLRZ@ 1 0 P)
(CALL 4 (E DISPATCH) S)
(CLEARM 0 (SPECIAL ALLOW) S)
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP START SUBR)
(MOVE 1 (SPECIAL RUNF) S)
(JUMPE 1 TAG6)
(MOVEI 1 (QUOTE (CONNIVER ALREADY RUNNING)) S)
(CALL 17 (E CERR) S)
TAG6 (MOVE 2 (SPECIAL FREEVARS) S)
(MOVE 1 (SPECIAL FRAMEVARS) S)
(CALL 2 (E *APPEND) S)
(PUSH P 1)
TAG1 (MOVE 1 0 P)
(JUMPE 1 TAG13)
(HLRZ@ 1 0 P)
(MOVEI 2 (QUOTE NIL))
(CALL 2 (E SET) S)
(HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG13 (MOVEI 1 (QUOTE ICEVAL) S)
(MOVEM 1 (SPECIAL PC) S)
(MOVEI 1 (QUOTE (CEVAL (QUOTE (LISTEN (QUOTE TOP-LEVEL))))) S)
(MOVEM 1 (SPECIAL EXP) S)
(MOVEI 1 (QUOTE 0))
(MOVEM 1 (SPECIAL LEVNUM) S)
(MOVEI 1 (QUOTE T) S)
(MOVEM 1 (SPECIAL ALLOW) S)
(CALL 0 (E RUN1) S)
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP STOP LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVE 1 (SPECIAL RUNF) S)
(JUMPE 1 TAG4)
(TDZA 2 2)
TAG4 (MOVEI 2 (QUOTE T) S)
(MOVEI 5 (QUOTE NIL))
(MOVEI 4 (QUOTE NIL))
(MOVEI 3 (QUOTE CONNIVER-NOT-RUNNING--STOP) S)
(MOVEI 1 (QUOTE NIL))
(CALL 5 (E BREAK1) S)
(MOVEI 2 (QUOTE 0))
(MOVE 1 0 P)
(CALL 2 (E =) S)
(JUMPE 1 TAG6)
(CLEARM 0 (SPECIAL VAL) S)
(JRST 0 TAG5)
TAG6 (MOVEI 2 (QUOTE 1))
(MOVE 1 0 P)
(CALL 2 (E =) S)
(JUMPE 1 TAG7)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
(MOVEM 1 (SPECIAL VAL) S)
(JRST 0 TAG5)
TAG7 (MOVEI 1 (QUOTE (WRONG # OF ARGS)) S)
(CALL 17 (E CERR) S)
TAG5 (MOVEI 1 (QUOTE POPJ) S)
(MOVEM 1 (SPECIAL PC) S)
(MOVEI 1 (QUOTE %%%STOP) S)
(SUB P (C 1 0 1 0))
(JCALL 1 (E ERR) S)
NIL
(LAP *STOP SUBR)
(MOVEI 1 (QUOTE U-LOSE) S)
(MOVEM 1 (SPECIAL PC) S)
(MOVEI 1 (QUOTE %%%STOP) S)
(JCALL 1 (E ERR) S)
NIL
(LAP U-LOSE SUBR)
(MOVEI 1 (QUOTE (ATTEMPT TO RUN A CONNIVER PROCESS WITH AN UNDEFINED PC)) S)
(CALL 17 (E CERR) S)
(MOVEI 1 (QUOTE U-LOSE) S)
(POPJ P)
NIL
(LAP CERR FSUBR)
(PUSHJ P *AMAKE)
(PUSH P 1)
(PUSH P 2)
(MOVEI 1 (QUOTE **ERROR**) S)
(CALL 1 (E PRINT) S)
(PUSH P -1 P)
TAG1 (MOVE 1 0 P)
(JUMPE 1 TAG12)
(HLRZ@ 1 0 P)
(PUSH P 1)
(MOVE 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG21)
(MOVE 1 0 P)
(JRST 0 TAG20)
TAG21 (HLRZ@ 1 0 P)
(CAIE 1 (QUOTE /@) S)
(JRST 0 TAG22)
(PUSH P (C 0 0 TAG23 0))
(HRRZ@ 1 -1 P)
(PUSH P 1)
(PUSH P -4 P)
(MOVNI 6 2)
(JCALL 16 (E EVAL) S)
TAG23 (JRST 0 TAG20)
TAG22 (MOVE 1 0 P)
TAG20 (CALL 1 (E CPRIN1) S)
(MOVEI 1 (QUOTE / ) S)
(CALL 1 (E PRINC) S)
(HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(SUB P (C 1 0 1 0))
(JRST 0 TAG1)
TAG12 (MOVE 1 (SPECIAL EXP) S)
(CALL 1 (E CPRINT) S)
TAG2 (MOVEI 1 (QUOTE IN-LISP) S)
(CALL 1 (E PRINT) S)
(CALL 0 (E TERPRI) S)
(MOVEI 1 (QUOTE ::) S)
(CALL 1 (E PRINC) S)
(CALL 0 (E READ) S)
(MOVEM 1 (SPECIAL **) S)
(CAIN 1 (QUOTE $P) S)
(JRST 0 TAG27)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE RETURN) S)
(JRST 0 TAG32)
(PUSH P (C 0 0 TAG33 0))
(HRRZ@ 1 (SPECIAL **) S)
(HLRZ@ 1 1)
(PUSH P 1)
(PUSH P -3 P)
(MOVNI 6 2)
(JCALL 16 (E EVAL) S)
TAG33 (JRST 0 TAG26)
TAG32 (PUSH P (C 0 0 TAG36 0))
(PUSH P (SPECIAL **) S)
(PUSH P -3 P)
(MOVNI 6 2)
(JCALL 16 (E EVAL) S)
TAG36 (CALL 1 (E CPRINT) S)
(MOVEM 1 (SPECIAL *) S)
(MOVE 1 (SPECIAL **) S)
(MOVEM 1 (SPECIAL ←) S)
(JRST 0 TAG2)
TAG27 (MOVEI 1 (QUOTE NIL))
TAG26 (SUB P (C 1 0 1 0))
(SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP EAR SUBR)
(MOVE 2 (SPECIAL CINTERRUPT) S)
(MOVEI 1 (QUOTE (LISTEN (QUOTE IN-CONNIVER))) S)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL CINTERRUPT) S)
(MOVE 1 (SPECIAL ERRLIST) S)
(MOVEM 1 (SPECIAL SERRLI) S)
(MOVEI 1 (QUOTE ((RUN1))) S)
(MOVEM 1 (SPECIAL ERRLIST) S)
(MOVEI 1 (QUOTE ERROX) S)
(JCALL 1 (E ERR) S)
NIL
(LAP TOP SUBR)
(MOVE 1 (SPECIAL ERRLIST) S)
(MOVEM 1 (SPECIAL SERRLI) S)
(MOVEI 1 (QUOTE ((START))) S)
(MOVEM 1 (SPECIAL ERRLIST) S)
(MOVEI 1 (QUOTE ERRORX) S)
(JCALL 1 (E ERR) S)
NIL
(LAP CINTERRUPT SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL EXP) S)
(PUSH P (C 0 0 TAG1 0))
(MOVEI 2 (QUOTE VALUE) S)
(MOVEI 1 (QUOTE CINTERRUPT) S)
(CALL 2 (E GET) S)
(PUSH P 1)
(MOVE 1 (SPECIAL EXP) S)
(CALL 1 (E NCONS) S)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC) S)
TAG1 (JRST 0 SPECSTR)
NIL
(LAP ALLOW FSUBR)
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL ALLOW) S)
(POPJ P)
NIL
(COMMENT DISPATCH IS THE "PUSHJ" FOR CONNIVER)
(LAP DISPATCH SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL EXP1) S)
(0 2 (SPECIAL RETAG) S)
(0 3 (SPECIAL SAVE) S)
(0 4 (SPECIAL ALINK1) S)
(CALL 1 (E NUMBERP) S)
(JUMPE 1 TAG7)
(MOVE 1 (SPECIAL EXP1) S)
(MOVEM 1 (SPECIAL VAL) S)
(MOVE 1 (SPECIAL RETAG) S)
(JRST 0 TAG6)
TAG7 (MOVE 1 (SPECIAL EXP1) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG10)
(MOVE 2 (SPECIAL ALINK1) S)
(MOVE 1 (SPECIAL EXP1) S)
(CALL 2 (E IVAL) S)
(MOVEM 1 (SPECIAL VAL) S)
(MOVE 1 (SPECIAL RETAG) S)
(JRST 0 TAG6)
TAG10 (HLRZ@ 1 (SPECIAL EXP1) S)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG17)
(MOVEI 2 (QUOTE (CINT CEXPR FEXPR FSUBR)) S)
(MOVE 1 -1 P)
(CALL 2 (E GETL) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG21)
(HLRZ@ 1 1)
(JRST 0 TAG15)
TAG21 (CALL 0 (E SAVEUP) S)
(HRRZ@ 1 (SPECIAL EXP1) S)
(MOVEM 1 (SPECIAL UARGS) S)
(CLEARM 0 (SPECIAL EARGS) S)
(MOVEI 1 (QUOTE EVARGS) S)
(JRST 0 TAG13)
(JRST 0 TAG16)
TAG17 (HLRZ@ 1 -1 P)
(CAIE 1 (QUOTE CLAMBDA) S)
(JRST 0 TAG27)
(CALL 0 (E SAVEUP) S)
(HRRZ@ 2 -1 P)
(HRRZ@ 2 2)
(MOVEI 1 (QUOTE *BODY) S)
(CALL 2 (E BIND1) S)
(HRRZ@ 1 -1 P)
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL VARS) S)
(HRRZ@ 1 (SPECIAL EXP1) S)
(MOVEM 1 (SPECIAL UARGS) S)
(MOVEI 1 (QUOTE ARGB) S)
(JRST 0 TAG13)
TAG27 (HLRZ@ 1 -1 P)
(CAIE 1 (QUOTE LAMBDA) S)
(JRST 0 TAG33)
(CALL 0 (E SAVEUP) S)
(HRRZ@ 1 (SPECIAL EXP1) S)
(MOVEM 1 (SPECIAL UARGS) S)
(CLEARM 0 (SPECIAL EARGS) S)
(MOVEI 1 (QUOTE EVARGS) S)
(JRST 0 TAG13)
TAG33 (HLRZ@ 1 -1 P)
(CAIE 1 (QUOTE *CLOSURE) S)
(JRST 0 TAG37)
(HRRZ@ 1 -1 P)
(HLRZ@ 1 1)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG37 (MOVEI 1 (QUOTE (UNKNOWN FUNCTION TYPE (/@ . EXP1))) S)
(CALL 17 (E CERR) S)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG16
TAG2 (CALL 0 (E SAVEUP) S)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(JRST 0 TAG13)
TAG3 (CALL 0 (E SAVEUP) S)
(HRRZ@ 2 0 P)
(HLRZ@ 2 2)
(HRRZ@ 2 2)
(MOVEI 1 (QUOTE *BODY) S)
(CALL 2 (E BIND1) S)
(HRRZ@ 1 0 P)
(CALL 1 (E CAAR) S)
(MOVEM 1 (SPECIAL VARS) S)
(HRRZ@ 1 (SPECIAL EXP1) S)
(MOVEM 1 (SPECIAL UARGS) S)
(MOVEI 1 (QUOTE ARGB) S)
(JRST 0 TAG13)
TAG4
TAG5 (MOVE 1 (SPECIAL ALINK1) S)
(JSP 6 SPECBIND)
(0 1 (SPECIAL *TOP) S)
(MOVE 1 (SPECIAL EXP1) S)
(CALL 1 (E *EVAL) S)
(MOVEM 1 (SPECIAL VAL) S)
(PUSHJ P SPECSTR)
(MOVE 1 (SPECIAL RETAG) S)
TAG13 (JRST 0 TAG45)
TAG15 (CAIN 1 (QUOTE FSUBR) S)
(JRST 0 TAG5)
(CAIN 1 (QUOTE FEXPR) S)
(JRST 0 TAG4)
(CAIN 1 (QUOTE CEXPR) S)
(JRST 0 TAG3)
(CAIN 1 (QUOTE CINT) S)
(JRST 0 TAG2)
(CAIN 1 (QUOTE BEGIN) S)
(JRST 0 TAG1)
(PUSHJ P *UDT)
TAG45 (SUB P (C 2 0 2 0))
TAG6 (JRST 0 SPECSTR)
NIL
(LAP SAVEUP SUBR)
(CALL 0 (E SAVEV) S)
(MOVE 2 (SPECIAL RETAG) S)
(CALL 2 (E CONS) S)
(PUSH P 1)
(MOVE 1 (SPECIAL FRAME*) S)
(JUMPN 1 TAG5)
(CLEARM 0 (SPECIAL CHALOBV) S)
(MOVE 2 (SPECIAL ALINK) S)
(MOVE 1 (SPECIAL BVARS) S)
(CALL 2 (E CONS) S)
(MOVE 2 (SPECIAL CLINK) S)
(PUSH P 1)
(MOVE 1 (SPECIAL EXP) S)
(CALL 2 (E CONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(JRST 0 TAG4)
TAG5 (MOVE 1 (SPECIAL CHALOBV) S)
(JUMPE 1 TAG7)
(CLEARM 0 (SPECIAL CHALOBV) S)
(MOVE 2 (SPECIAL ALINK) S)
(MOVE 1 (SPECIAL BVARS) S)
(CALL 2 (E CONS) S)
(HRRZ@ 2 (SPECIAL FRAME*) S)
(HRRZ@ 2 2)
(CALL 2 (E CONS) S)
(MOVE 2 1)
(JRST 0 TAG4)
TAG7 (HRRZ@ 2 (SPECIAL FRAME*) S)
TAG4 (POP P 1)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL CLINK) S)
(MOVE 1 (SPECIAL EXP1) S)
(MOVEM 1 (SPECIAL EXP) S)
(MOVE 1 (SPECIAL ALINK1) S)
(CAIE 1 (QUOTE *TOP) S)
(JRST 0 TAG13)
(MOVE 1 (SPECIAL CLINK) S)
(JRST 0 TAG12)
TAG13 (MOVE 1 (SPECIAL ALINK1) S)
TAG12 (MOVEM 1 (SPECIAL ALINK) S)
(CLEARM 0 (SPECIAL BVARS) S)
(CLEARB 1 (SPECIAL FRAME*) S)
(POPJ P)
NIL
(LAP SAVEV SUBR)
(PUSH P (SPECIAL SAVE) S)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -3 P)
(JUMPE 1 TAG6)
(HLRZ@ 1 -3 P)
(PUSH P 1)
(PUSH P (C 0 0 TAG11 0))
(PUSH P 1)
(MOVNI 6 1)
(JCALL 16 (E VALUE) S)
TAG11 (POP P 2)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(MOVEM 1 -2 P)
(MOVE 1 -1 P)
(JUMPE 1 TAG13)
(MOVE 1 -2 P)
(HRRM@ 1 -1 P)
(HRRZ@ 2 -1 P)
(JRST 0 TAG12)
TAG13 (MOVE 2 -2 P)
(MOVEM 2 0 P)
TAG12 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(MOVEM 2 -1 P)
(JRST 0 TAG1)
TAG6 (MOVE 1 0 P)
(SUB P (C 4 0 4 0))
(POPJ P)
NIL
(COMMENT FUNCTION CALLS RETURN VIA "POPJ")
(LAP POPJ SUBR)
(MOVE 1 (SPECIAL CLINK) S)
(MOVEM 1 (SPECIAL FRAME*) S)
(JUMPE 1 TAG2)
(CALL 0 (E RESTORE) S)
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE *STOP) S)
TAG1 (POPJ P)
NIL
(LAP RESTORE SUBR)
(HRRZ@ 1 (SPECIAL FRAME*) S)
(CALL 1 (E CAAR) S)
(MOVEM 1 (SPECIAL BVARS) S)
(HRRZ@ 1 (SPECIAL FRAME*) S)
(CALL 1 (E CDAR) S)
(MOVEM 1 (SPECIAL ALINK) S)
(HRRZ@ 1 (SPECIAL FRAME*) S)
(CALL 1 (E CADR) S)
(MOVEM 1 (SPECIAL EXP) S)
(HRRZ@ 1 (SPECIAL FRAME*) S)
(CALL 1 (E CDDR) S)
(MOVEM 1 (SPECIAL CLINK) S)
(JCALL 0 (E REST1) S)
NIL
(LAP REST1 SUBR)
(HLRZ@ 1 (SPECIAL FRAME*) S)
(HLRZ@ 1 1)
(PUSH P 1)
TAG1 (MOVE 1 0 P)
(JUMPE 1 TAG11)
(HLRZ@ 1 0 P)
(HRRZ@ 2 1)
(HLRZ@ 1 1)
(CALL 2 (E SET) S)
(HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG11 (HLRZ@ 1 (SPECIAL FRAME*) S)
(HRRZ@ 1 1)
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP BIND1 SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL VAL) S)
(PUSH P 1)
(MOVE 1 (SPECIAL VAL) S)
(CALL 1 (E NCONS) S)
(MOVE 2 0 P)
(CALL 2 (E XCONS) S)
(MOVE 2 (SPECIAL BVARS) S)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL BVARS) S)
(MOVEI 1 (QUOTE T) S)
(MOVEM 1 (SPECIAL CHALOBV) S)
(SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(LAP CLOSE SUBR)
(HLRZ@ 1 (SPECIAL EXP) S)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG1)
(HLRZ@ 1 (SPECIAL EXP) S)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE *CLOSURE) S)
(JRST 0 TAG2)
(HLRZ@ 1 (SPECIAL EXP) S)
(CALL 1 (E CADDR) S)
(MOVEM 1 (SPECIAL ALINK) S)
(MOVEI 1 (QUOTE T) S)
(MOVEM 1 (SPECIAL CHALOBV) S)
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE NIL))
TAG1 (POPJ P)
NIL
(COMMENT MOBY BINDER -- NORMAL FUNCTION LISTS)
(LAP ARGB SUBR)
(MOVE 1 (SPECIAL VARS) S)
(JUMPN 1 TAG4)
(MOVE 1 (SPECIAL UARGS) S)
TAG4 (JUMPN 1 TAG2)
(CALL 0 (E CLOSE) S)
(MOVEI 1 (QUOTE AUXB) S)
(JRST 0 TAG1)
TAG2 (MOVE 1 (SPECIAL VARS) S)
(JUMPE 1 TAG7)
(MOVE 1 (SPECIAL UARGS) S)
TAG7 (JUMPE 1 TAG5)
(HLRZ@ 1 (SPECIAL VARS) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG11)
(HLRZ@ 1 (SPECIAL VARS) S)
(CAIE 1 (QUOTE "OPTIONAL") S)
(JRST 0 TAG13)
(HRRZ@ 1 (SPECIAL VARS) S)
(MOVEM 1 (SPECIAL VARS) S)
(CALL 0 (E OPTMATCH) S)
(JRST 0 TAG12)
TAG13 (HLRZ@ 1 (SPECIAL VARS) S)
(CAIE 1 (QUOTE "REST") S)
(JRST 0 TAG14)
(HRRZ@ 1 (SPECIAL VARS) S)
(MOVEM 1 (SPECIAL VARS) S)
(CALL 0 (E RESTMATCH) S)
(JRST 0 TAG12)
TAG14 (MOVE 4 (SPECIAL ALINK) S)
(MOVEI 3 (QUOTE (VARS UARGS)) S)
(MOVEI 2 (QUOTE ARGB1) S)
(HLRZ@ 1 (SPECIAL UARGS) S)
(CALL 4 (E DISPATCH) S)
TAG12 (JRST 0 TAG10)
TAG11 (HLRZ@ 1 (SPECIAL VARS) S)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE QUOTE) S)
(JRST 0 TAG21)
(HLRZ@ 1 (SPECIAL VARS) S)
(CALL 1 (E CADR) S)
(CALL 1 (E ATOM) S)
(JRST 0 TAG20)
TAG21 (MOVEI 1 (QUOTE NIL))
TAG20 (JUMPE 1 TAG17)
(CALL 0 (E ARGQ) S)
(JRST 0 TAG10)
TAG17 (MOVEI 1 (QUOTE (BAD DECLARATION)) S)
(CALL 17 (E CERR) S)
TAG10 (JRST 0 TAG1)
TAG5 (MOVE 1 (SPECIAL VARS) S)
(JUMPE 1 TAG26)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE "OPTIONAL") S)
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG27)
(HLRZ@ 1 (SPECIAL VARS) S)
(CAIE 1 (QUOTE "REST") S)
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
TAG27
TAG26 (JUMPE 1 TAG24)
(CALL 0 (E CLOSE) S)
(CALL 0 (E FINVAR) S)
(JRST 0 TAG1)
TAG24 (MOVEI 1 (QUOTE (WRONG # OF ARGS)) S)
(CALL 17 (E CERR) S)
TAG1 (POPJ P)
NIL
(LAP ARGB1 SUBR)
(MOVE 2 (SPECIAL VAL) S)
(HLRZ@ 1 (SPECIAL VARS) S)
(CALL 2 (E BIND1) S)
(HRRZ@ 1 (SPECIAL VARS) S)
(MOVEM 1 (SPECIAL VARS) S)
(HRRZ@ 1 (SPECIAL UARGS) S)
(MOVEM 1 (SPECIAL UARGS) S)
(MOVEI 1 (QUOTE ARGB) S)
(POPJ P)
NIL
(LAP ARGQ SUBR)
(HLRZ@ 2 (SPECIAL UARGS) S)
(HLRZ@ 1 (SPECIAL VARS) S)
(CALL 1 (E CADR) S)
(CALL 2 (E BIND1) S)
(HRRZ@ 1 (SPECIAL VARS) S)
(MOVEM 1 (SPECIAL VARS) S)
(HRRZ@ 1 (SPECIAL UARGS) S)
(MOVEM 1 (SPECIAL UARGS) S)
(MOVEI 1 (QUOTE ARGB) S)
(POPJ P)
NIL
(COMMENT BIND UP "OPTIONAL"S AND "REST"S)
(LAP OPTMATCH SUBR)
(MOVE 1 (SPECIAL UARGS) S)
(JUMPN 1 TAG2)
(CALL 0 (E CLOSE) S)
(MOVE 1 (SPECIAL VARS) S)
(JUMPN 1 TAG5)
(MOVEI 1 (QUOTE AUXB) S)
(JRST 0 TAG4)
TAG5 (MOVEI 1 (QUOTE FINVAR) S)
TAG4 (JRST 0 TAG1)
TAG2 (HLRZ@ 1 (SPECIAL VARS) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG11)
(HLRZ@ 1 (SPECIAL VARS) S)
(CAIE 1 (QUOTE "OPTIONAL") S)
(JRST 0 TAG13)
(HRRZ@ 1 (SPECIAL VARS) S)
(MOVEM 1 (SPECIAL VARS) S)
(MOVEI 1 (QUOTE OPTMATCH) S)
(JRST 0 TAG12)
TAG13 (HLRZ@ 1 (SPECIAL VARS) S)
(CAIE 1 (QUOTE "REST") S)
(JRST 0 TAG14)
(HRRZ@ 1 (SPECIAL VARS) S)
(MOVEM 1 (SPECIAL VARS) S)
(MOVEI 1 (QUOTE RESTMATCH) S)
(JRST 0 TAG12)
TAG14 (MOVE 4 (SPECIAL ALINK) S)
(MOVEI 3 (QUOTE (VARS UARGS)) S)
(MOVEI 2 (QUOTE OPTMATCH1) S)
(HLRZ@ 1 (SPECIAL UARGS) S)
(CALL 4 (E DISPATCH) S)
TAG12 (JRST 0 TAG1)
TAG11 (HLRZ@ 1 (SPECIAL VARS) S)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE QUOTE) S)
(JRST 0 TAG17)
(HLRZ@ 1 (SPECIAL VARS) S)
(CALL 1 (E CADR) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG21)
(HLRZ@ 2 (SPECIAL UARGS) S)
(HLRZ@ 1 (SPECIAL VARS) S)
(CALL 1 (E CADR) S)
(CALL 2 (E BIND1) S)
(HRRZ@ 1 (SPECIAL VARS) S)
(MOVEM 1 (SPECIAL VARS) S)
(HRRZ@ 1 (SPECIAL UARGS) S)
(MOVEM 1 (SPECIAL UARGS) S)
(MOVEI 1 (QUOTE OPTMATCH) S)
(JRST 0 TAG20)
TAG21 (MOVEI 1 (QUOTE (BAD DECLARATION)) S)
(CALL 17 (E CERR) S)
TAG20 (JRST 0 TAG1)
TAG17 (HLRZ@ 1 (SPECIAL VARS) S)
(HLRZ@ 1 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG27)
(MOVE 4 (SPECIAL ALINK) S)
(MOVEI 3 (QUOTE (VARS UARGS)) S)
(MOVEI 2 (QUOTE OPTMATCH1) S)
(HLRZ@ 1 (SPECIAL UARGS) S)
(CALL 4 (E DISPATCH) S)
(JRST 0 TAG1)
TAG27 (HLRZ@ 1 (SPECIAL VARS) S)
(CALL 1 (E CAAR) S)
(CAIE 1 (QUOTE QUOTE) S)
(JRST 0 TAG32)
(HLRZ@ 1 (SPECIAL VARS) S)
(CALL 1 (E CADAR) S)
(CALL 1 (E ATOM) S)
(JRST 0 TAG31)
TAG32 (MOVEI 1 (QUOTE NIL))
TAG31 (JUMPE 1 TAG30)
(HLRZ@ 2 (SPECIAL UARGS) S)
(HLRZ@ 1 (SPECIAL VARS) S)
(CALL 1 (E CADAR) S)
(CALL 2 (E BIND1) S)
(HRRZ@ 1 (SPECIAL VARS) S)
(MOVEM 1 (SPECIAL VARS) S)
(HRRZ@ 1 (SPECIAL UARGS) S)
(MOVEM 1 (SPECIAL UARGS) S)
(MOVEI 1 (QUOTE OPTMATCH) S)
(JRST 0 TAG1)
TAG30 (MOVEI 1 (QUOTE (BAD DECLARATION)) S)
(CALL 17 (E CERR) S)
TAG1 (POPJ P)
NIL
(LAP OPTMATCH1 SUBR)
(HLRZ@ 1 (SPECIAL VARS) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG5)
(HLRZ@ 1 (SPECIAL VARS) S)
(JRST 0 TAG4)
TAG5 (HLRZ@ 1 (SPECIAL VARS) S)
(HLRZ@ 1 1)
TAG4 (MOVE 2 (SPECIAL VAL) S)
(CALL 2 (E BIND1) S)
(HRRZ@ 1 (SPECIAL VARS) S)
(MOVEM 1 (SPECIAL VARS) S)
(HRRZ@ 1 (SPECIAL UARGS) S)
(MOVEM 1 (SPECIAL UARGS) S)
(MOVEI 1 (QUOTE OPTMATCH) S)
(POPJ P)
NIL
(LAP RESTMATCH SUBR)
(HLRZ@ 1 (SPECIAL VARS) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG2)
(CLEARM 0 (SPECIAL EARGS) S)
(CALL 0 (E EVREST) S)
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 (SPECIAL VARS) S)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE QUOTE) S)
(JRST 0 TAG5)
(HLRZ@ 1 (SPECIAL VARS) S)
(CALL 1 (E CADR) S)
(CALL 1 (E ATOM) S)
(JRST 0 TAG4)
TAG5 (MOVEI 1 (QUOTE NIL))
TAG4 (JUMPE 1 TAG3)
(MOVE 2 (SPECIAL UARGS) S)
(HLRZ@ 1 (SPECIAL VARS) S)
(CALL 1 (E CADR) S)
(CALL 2 (E BIND1) S)
(CALL 0 (E CLOSE) S)
(MOVEI 1 (QUOTE AUXB) S)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE (BAD DECLARATION)) S)
(CALL 17 (E CERR) S)
TAG1 (POPJ P)
NIL
(LAP EVREST SUBR)
(MOVE 1 (SPECIAL UARGS) S)
(JUMPN 1 TAG2)
(HLRZ@ 1 (SPECIAL VARS) S)
(PUSH P 1)
(MOVE 1 (SPECIAL EARGS) S)
(CALL 1 (E REVERSE) S)
(MOVE 2 1)
(POP P 1)
(CALL 2 (E BIND1) S)
(CALL 0 (E CLOSE) S)
(MOVEI 1 (QUOTE AUXB) S)
(JRST 0 TAG1)
TAG2 (MOVE 4 (SPECIAL ALINK) S)
(MOVEI 3 (QUOTE (VARS UARGS EARGS)) S)
(MOVEI 2 (QUOTE EVREST1) S)
(HLRZ@ 1 (SPECIAL UARGS) S)
(CALL 4 (E DISPATCH) S)
TAG1 (POPJ P)
NIL
(LAP EVREST1 SUBR)
(HRRZ@ 1 (SPECIAL UARGS) S)
(MOVEM 1 (SPECIAL UARGS) S)
(MOVE 2 (SPECIAL EARGS) S)
(MOVE 1 (SPECIAL VAL) S)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL EARGS) S)
(MOVEI 1 (QUOTE EVREST) S)
(POPJ P)
NIL
(COMMENT WHEN RUN OUT OF ARGS BUT HAVE SOME "OPTIONAL"S OR "REST"S)
(LAP FINVAR SUBR)
(MOVE 1 (SPECIAL VARS) S)
(JUMPN 1 TAG2)
(MOVEI 1 (QUOTE AUXB) S)
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG4)
(HLRZ@ 1 (SPECIAL VARS) S)
(CAIE 1 (QUOTE "OPTIONAL") S)
(JRST 0 TAG6)
(HRRZ@ 1 (SPECIAL VARS) S)
(MOVEM 1 (SPECIAL VARS) S)
(MOVEI 1 (QUOTE FINVAR) S)
(JRST 0 TAG5)
TAG6 (HLRZ@ 1 (SPECIAL VARS) S)
(CAIE 1 (QUOTE "REST") S)
(JRST 0 TAG7)
(HRRZ@ 1 (SPECIAL VARS) S)
(MOVEM 1 (SPECIAL VARS) S)
(HLRZ@ 1 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG11)
(MOVEI 2 (QUOTE NIL))
(HLRZ@ 1 (SPECIAL VARS) S)
(CALL 2 (E BIND1) S)
(MOVEI 1 (QUOTE AUXB) S)
(JRST 0 TAG10)
TAG11 (HLRZ@ 1 (SPECIAL VARS) S)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE QUOTE) S)
(JRST 0 TAG14)
(HLRZ@ 1 (SPECIAL VARS) S)
(CALL 1 (E CADR) S)
(CALL 1 (E ATOM) S)
(JRST 0 TAG13)
TAG14 (MOVEI 1 (QUOTE NIL))
TAG13 (JUMPE 1 TAG12)
(MOVEI 2 (QUOTE NIL))
(HLRZ@ 1 (SPECIAL VARS) S)
(CALL 1 (E CADR) S)
(CALL 2 (E BIND1) S)
(MOVEI 1 (QUOTE AUXB) S)
(JRST 0 TAG10)
TAG12 (MOVEI 1 (QUOTE (BAD DECLARATION)) S)
(CALL 17 (E CERR) S)
TAG10 (JRST 0 TAG5)
TAG7 (MOVEI 2 (QUOTE *UNASSIGNED) S)
(HLRZ@ 1 (SPECIAL VARS) S)
(CALL 2 (E BIND1) S)
(HRRZ@ 1 (SPECIAL VARS) S)
(MOVEM 1 (SPECIAL VARS) S)
(MOVEI 1 (QUOTE FINVAR) S)
TAG5 (JRST 0 TAG1)
TAG4 (HLRZ@ 1 (SPECIAL VARS) S)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE QUOTE) S)
(JRST 0 TAG21)
(HLRZ@ 1 (SPECIAL VARS) S)
(CALL 1 (E CADR) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG23)
(MOVEI 2 (QUOTE *UNASSIGNED) S)
(HLRZ@ 1 (SPECIAL VARS) S)
(CALL 1 (E CADR) S)
(CALL 2 (E BIND1) S)
(HRRZ@ 1 (SPECIAL VARS) S)
(MOVEM 1 (SPECIAL VARS) S)
(MOVEI 1 (QUOTE FINVAR) S)
(JRST 0 TAG22)
TAG23 (MOVEI 1 (QUOTE (BAD DECLARATION)) S)
(CALL 17 (E CERR) S)
TAG22 (JRST 0 TAG1)
TAG21 (HLRZ@ 1 (SPECIAL VARS) S)
(HLRZ@ 1 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG26)
(MOVEI 4 (QUOTE *TOP) S)
(MOVEI 3 (QUOTE (VARS)) S)
(MOVEI 2 (QUOTE FINVAR1) S)
(HLRZ@ 1 (SPECIAL VARS) S)
(CALL 1 (E CADR) S)
(CALL 4 (E DISPATCH) S)
(JRST 0 TAG1)
TAG26 (HLRZ@ 1 (SPECIAL VARS) S)
(CALL 1 (E CAAR) S)
(CAIE 1 (QUOTE QUOTE) S)
(JRST 0 TAG31)
(HLRZ@ 1 (SPECIAL VARS) S)
(CALL 1 (E CADAR) S)
(CALL 1 (E ATOM) S)
(JRST 0 TAG30)
TAG31 (MOVEI 1 (QUOTE NIL))
TAG30 (JUMPE 1 TAG27)
(MOVEI 4 (QUOTE *TOP) S)
(MOVEI 3 (QUOTE (VARS)) S)
(MOVEI 2 (QUOTE FINVAR2) S)
(HLRZ@ 1 (SPECIAL VARS) S)
(CALL 1 (E CADR) S)
(CALL 4 (E DISPATCH) S)
(JRST 0 TAG1)
TAG27 (MOVEI 1 (QUOTE (BAD DECLARATION)) S)
(CALL 17 (E CERR) S)
TAG1 (POPJ P)
NIL
(LAP FINVAR1 SUBR)
(MOVE 2 (SPECIAL VAL) S)
(HLRZ@ 1 (SPECIAL VARS) S)
(HLRZ@ 1 1)
(CALL 2 (E BIND1) S)
(JCALL 0 (E FINVAR3) S)
NIL
(LAP FINVAR2 SUBR)
(MOVE 2 (SPECIAL VAL) S)
(HLRZ@ 1 (SPECIAL VARS) S)
(CALL 1 (E CADAR) S)
(CALL 2 (E BIND1) S)
(JCALL 0 (E FINVAR3) S)
NIL
(LAP FINVAR3 SUBR)
(HRRZ@ 1 (SPECIAL VARS) S)
(MOVEM 1 (SPECIAL VARS) S)
(MOVEI 1 (QUOTE FINVAR) S)
(POPJ P)
NIL
(COMMENT BINDS "AUX" VARIABLES)
(LAP AUXB SUBR)
(MOVE 2 (SPECIAL BVARS) S)
(MOVEI 1 (QUOTE *BODY) S)
(CALL 2 (E ASSOC) S)
(CALL 1 (E CADR) S)
(MOVEM 1 (SPECIAL BODY) S)
(JUMPN 1 TAG5)
(CALL 0 (E POPJ) S)
(JRST 0 TAG4)
TAG5 (HLRZ@ 1 1)
(CAIE 1 (QUOTE "AUX") S)
(JRST 0 TAG7)
(HRRZ@ 1 (SPECIAL BODY) S)
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL VARS) S)
(MOVEI 1 (QUOTE AUXB1) S)
(JRST 0 TAG4)
TAG7 (MOVEI 1 (QUOTE LINE) S)
TAG4 (POPJ P)
NIL
(LAP AUXB1 SUBR)
(MOVE 1 (SPECIAL VARS) S)
(JUMPN 1 TAG2)
(MOVE 2 (SPECIAL BVARS) S)
(MOVEI 1 (QUOTE *BODY) S)
(CALL 2 (E ASSOC) S)
(CALL 1 (E CADR) S)
(CALL 1 (E CDDR) S)
(MOVEM 1 (SPECIAL BODY) S)
(MOVEI 1 (QUOTE LINE) S)
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG4)
(MOVEI 2 (QUOTE *UNASSIGNED) S)
(HLRZ@ 1 (SPECIAL VARS) S)
(CALL 2 (E BIND1) S)
(HRRZ@ 1 (SPECIAL VARS) S)
(MOVEM 1 (SPECIAL VARS) S)
(MOVEI 1 (QUOTE AUXB1) S)
(JRST 0 TAG1)
TAG4 (HLRZ@ 1 (SPECIAL VARS) S)
(HLRZ@ 1 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG7)
(HLRZ@ 1 (SPECIAL VARS) S)
(HRRZ@ 1 1)
TAG7 (JUMPE 1 TAG5)
(MOVEI 4 (QUOTE *TOP) S)
(MOVEI 3 (QUOTE (VARS)) S)
(MOVEI 2 (QUOTE AUXB2) S)
(HLRZ@ 1 (SPECIAL VARS) S)
(CALL 1 (E CADR) S)
(CALL 4 (E DISPATCH) S)
(JRST 0 TAG1)
TAG5 (MOVEI 1 (QUOTE (BAD DECLARATION)) S)
(CALL 17 (E CERR) S)
TAG1 (POPJ P)
NIL
(LAP AUXB2 SUBR)
(MOVE 2 (SPECIAL VAL) S)
(HLRZ@ 1 (SPECIAL VARS) S)
(HLRZ@ 1 1)
(CALL 2 (E BIND1) S)
(HRRZ@ 1 (SPECIAL VARS) S)
(MOVEM 1 (SPECIAL VARS) S)
(MOVEI 1 (QUOTE AUXB1) S)
(POPJ P)
NIL
(LAP CPROG SUBR)
(HRRZ@ 2 (SPECIAL EXP) S)
(MOVEI 1 (QUOTE *BODY) S)
(CALL 2 (E BIND1) S)
(MOVEI 1 (QUOTE AUXB) S)
(POPJ P)
NIL
(DEFPROP PROG CPROG CINT)
(DEFPROP PROG PROGB BACKTRACE)
(LAP PROGBIND SUBR)
(MOVE 4 (SPECIAL ALINK) S)
(MOVEI 3 (QUOTE NIL))
(MOVEI 2 (QUOTE PROGB1) S)
(HRRZ@ 1 (SPECIAL EXP) S)
(HLRZ@ 1 1)
(JCALL 4 (E DISPATCH) S)
NIL
(DEFPROP PROGBIND PROGBIND CINT)
(DEFPROP PROGBIND PROGBINDB BACKTRACE)
(LAP PROGB1 SUBR)
(MOVE 1 (SPECIAL VAL) S)
(MOVEM 1 (SPECIAL VARS) S)
(HRRZ@ 2 (SPECIAL EXP) S)
(HRRZ@ 2 2)
(CALL 2 (E CONS) S)
(MOVEI 2 (QUOTE "AUX") S)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE *BODY) S)
(CALL 2 (E BIND1) S)
(MOVEI 1 (QUOTE AUXB1) S)
(POPJ P)
NIL
(COMMENT BASIC PROG ITERATION LOOP)
(LAP LINE SUBR)
(MOVE 1 (SPECIAL BODY) S)
(JUMPN 1 TAG2)
(CALL 0 (E POPJ) S)
(JRST 0 TAG1)
TAG2 (MOVEI 4 (QUOTE *TOP) S)
(MOVEI 3 (QUOTE (BODY)) S)
(MOVEI 2 (QUOTE LINE1) S)
(HLRZ@ 1 (SPECIAL BODY) S)
(CALL 4 (E DISPATCH) S)
TAG1 (POPJ P)
NIL
(LAP LINE1 SUBR)
(HRRZ@ 1 (SPECIAL BODY) S)
(MOVEM 1 (SPECIAL BODY) S)
(MOVEI 1 (QUOTE LINE) S)
(POPJ P)
NIL
(COMMENT EVALUATES ARGUMENTS TO LISP EXPRS SUBRS AND LSUBRS)
(LAP EVARGS SUBR)
(MOVE 1 (SPECIAL UARGS) S)
(JUMPN 1 TAG2)
(MOVE 1 (SPECIAL ALINK) S)
(JSP 6 SPECBIND)
(0 1 (SPECIAL *TOP) S)
(HLRZ@ 1 (SPECIAL EXP) S)
(PUSH P 1)
(MOVE 1 (SPECIAL EARGS) S)
(CALL 1 (E REVERSE) S)
(MOVE 2 1)
(POP P 1)
(CALL 2 (E APPLY#) S)
(MOVEM 1 (SPECIAL VAL) S)
(PUSHJ P SPECSTR)
(CALL 0 (E POPJ) S)
(JRST 0 TAG1)
TAG2 (MOVE 4 (SPECIAL ALINK) S)
(MOVEI 3 (QUOTE (UARGS EARGS)) S)
(MOVEI 2 (QUOTE ARGS1) S)
(HLRZ@ 1 (SPECIAL UARGS) S)
(CALL 4 (E DISPATCH) S)
TAG1 (POPJ P)
NIL
(LAP ARGS1 SUBR)
(HRRZ@ 1 (SPECIAL UARGS) S)
(MOVEM 1 (SPECIAL UARGS) S)
(MOVE 2 (SPECIAL EARGS) S)
(MOVE 1 (SPECIAL VAL) S)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL EARGS) S)
(MOVEI 1 (QUOTE EVARGS) S)
(POPJ P)
NIL
(COMMENT LOGICAL FLOW OF CONTROL FUNCTIONS)
(LAP CCOND SUBR)
(HRRZ@ 1 (SPECIAL EXP) S)
(MOVEM 1 (SPECIAL UARGS) S)
(JCALL 0 (E CONDLP) S)
NIL
(LAP CONDLP SUBR)
(MOVE 1 (SPECIAL UARGS) S)
(JUMPN 1 TAG2)
(CALL 0 (E POPJ) S)
(JRST 0 TAG1)
TAG2 (MOVE 4 (SPECIAL ALINK) S)
(MOVEI 3 (QUOTE (UARGS)) S)
(MOVEI 2 (QUOTE COND1) S)
(HLRZ@ 1 (SPECIAL UARGS) S)
(HLRZ@ 1 1)
(CALL 4 (E DISPATCH) S)
TAG1 (POPJ P)
NIL
(LAP COND1 SUBR)
(MOVE 1 (SPECIAL VAL) S)
(JUMPE 1 TAG2)
(HLRZ@ 2 (SPECIAL UARGS) S)
(HRRZ@ 2 2)
(MOVEI 1 (QUOTE *BODY) S)
(CALL 2 (E BIND1) S)
(MOVEI 1 (QUOTE AUXB) S)
(JRST 0 TAG1)
TAG2 (HRRZ@ 1 (SPECIAL UARGS) S)
(MOVEM 1 (SPECIAL UARGS) S)
(MOVEI 1 (QUOTE CONDLP) S)
TAG1 (POPJ P)
NIL
(DEFPROP COND CCOND CINT)
(DEFPROP COND CONDB BACKTRACE)
(LAP IAND SUBR)
(HRRZ@ 1 (SPECIAL EXP) S)
(MOVEM 1 (SPECIAL EXP) S)
(JUMPN 1 TAG2)
(MOVE 1 (SPECIAL VAL) S)
(JUMPN 1 TAG4)
(MOVEI 1 (QUOTE T) S)
(MOVEM 1 (SPECIAL VAL) S)
TAG4 (CALL 0 (E POPJ) S)
(JRST 0 TAG1)
TAG2 (MOVEI 4 (QUOTE *TOP) S)
(MOVEI 3 (QUOTE (EXP)) S)
(MOVEI 2 (QUOTE IAND1) S)
(HLRZ@ 1 1)
(CALL 4 (E DISPATCH) S)
TAG1 (POPJ P)
NIL
(LAP IAND1 SUBR)
(MOVE 1 (SPECIAL VAL) S)
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE IAND) S)
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE POPJ) S)
TAG1 (POPJ P)
NIL
(DEFPROP AND IAND CINT)
(LAP IOR SUBR)
(HRRZ@ 1 (SPECIAL EXP) S)
(MOVEM 1 (SPECIAL EXP) S)
(JUMPN 1 TAG2)
(CLEARM 0 (SPECIAL VAL) S)
(CALL 0 (E POPJ) S)
(JRST 0 TAG1)
TAG2 (MOVEI 4 (QUOTE *TOP) S)
(MOVEI 3 (QUOTE (EXP)) S)
(MOVEI 2 (QUOTE IOR1) S)
(HLRZ@ 1 1)
(CALL 4 (E DISPATCH) S)
TAG1 (POPJ P)
NIL
(LAP IOR1 SUBR)
(MOVE 1 (SPECIAL VAL) S)
(JUMPE 1 TAG2)
(CALL 0 (E POPJ) S)
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE IOR) S)
TAG1 (POPJ P)
NIL
(DEFPROP OR IOR CINT)
(COMMENT USERS OF FRAMES -- FLOW OF CONTROL CONTROLLERS)
(LAP CGO SUBR)
(MOVE 4 (SPECIAL ALINK) S)
(MOVEI 3 (QUOTE NIL))
(MOVEI 2 (QUOTE GO1) S)
(HRRZ@ 1 (SPECIAL EXP) S)
(HLRZ@ 1 1)
(JCALL 4 (E DISPATCH) S)
NIL
(LAP GO1 SUBR)
(MOVE 1 (SPECIAL VAL) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG3)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 (SPECIAL ALINK) S)
(MOVEI 2 (QUOTE (: FOO)) S)
(MOVEM 1 0 P)
(MOVEM 2 -1 P)
(HRRZ@ 1 -1 P)
(PUSH P (SPECIAL VAL) S)
(POP P 2)
(HRLM@ 2 1)
TAG1 (MOVE 1 0 P)
(JUMPN 1 TAG13)
(MOVEI 1 (QUOTE (TAG NOT FOUND)) S)
(CALL 17 (E CERR) S)
(MOVEM 1 (SPECIAL VAL) S)
(JRST 0 TAG12)
TAG13 (HRRZ@ 2 1)
(HLRZ@ 2 2)
(HLRZ@ 2 2)
(MOVEI 1 (QUOTE *BODY) S)
(CALL 2 (E ASSOC) S)
(MOVEM 1 -2 P)
(JUMPE 1 TAG15)
(HRRZ@ 2 1)
(HLRZ@ 2 2)
(MOVE 1 -1 P)
(CALL 2 (E MEMBER#) S)
(MOVEM 1 -2 P)
(JUMPE 1 TAG17)
(MOVE 1 0 P)
(MOVEM 1 (SPECIAL FRAME*) S)
(CALL 0 (E RESTORE) S)
(MOVE 1 -2 P)
(MOVEM 1 (SPECIAL BODY) S)
(MOVEI 1 (QUOTE LINE) S)
(JRST 0 TAG4)
TAG17
TAG15
TAG12 (HRRZ@ 1 0 P)
(CALL 1 (E CDDR) S)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG4 (SUB P (C 3 0 3 0))
(JRST 0 TAG2)
TAG3 (HLRZ@ 1 (SPECIAL VAL) S)
(CAIE 1 (QUOTE *TAG) S)
(JRST 0 TAG20)
(HRRZ@ 1 (SPECIAL VAL) S)
(CALL 1 (E CADR) S)
(MOVEM 1 (SPECIAL FRAME*) S)
(CALL 0 (E RESTORE) S)
(JRST 0 TAG2)
TAG20 (MOVEI 1 (QUOTE (BAD TAG)) S)
(CALL 17 (E CERR) S)
(MOVEM 1 (SPECIAL VAL) S)
(MOVEI 1 (QUOTE GO1) S)
TAG2 (POPJ P)
NIL
(DEFPROP GO CGO CINT)
(LAP CEXIT SUBR)
(MOVE 4 (SPECIAL ALINK) S)
(MOVEI 3 (QUOTE NIL))
(MOVEI 2 (QUOTE EXIT1) S)
(HRRZ@ 1 (SPECIAL EXP) S)
(HLRZ@ 1 1)
(JCALL 4 (E DISPATCH) S)
NIL
(LAP EXIT1 SUBR)
(MOVE 1 (SPECIAL VAL) S)
(MOVEM 1 (SPECIAL TEM) S)
(HRRZ@ 1 (SPECIAL EXP) S)
(HRRZ@ 1 1)
(JUMPE 1 TAG6)
(MOVE 4 (SPECIAL ALINK) S)
(MOVEI 3 (QUOTE (TEM)) S)
(MOVEI 2 (QUOTE EXIT2) S)
(HRRZ@ 1 (SPECIAL EXP) S)
(CALL 1 (E CADR) S)
(CALL 4 (E DISPATCH) S)
(JRST 0 TAG5)
TAG6 (PUSH P (SPECIAL ALINK) S)
TAG1 (MOVE 1 0 P)
(JUMPN 1 TAG15)
(MOVEI 1 (QUOTE (EXIT FROM WHAT?)) S)
(CALL 17 (E CERR) S)
(JRST 0 TAG14)
TAG15 (HRRZ@ 2 1)
(HLRZ@ 2 2)
(HLRZ@ 2 2)
(MOVEI 1 (QUOTE *BODY) S)
(CALL 2 (E ASSOC) S)
(JUMPE 1 TAG17)
(HRRZ@ 1 0 P)
(CALL 1 (E CDDR) S)
(MOVEM 1 (SPECIAL CLINK) S)
(CALL 0 (E POPJ) S)
(JRST 0 TAG11)
TAG17
TAG14 (HRRZ@ 1 0 P)
(CALL 1 (E CDDR) S)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG11 (SUB P (C 1 0 1 0))
TAG5 (POPJ P)
NIL
(LAP EXIT2 SUBR)
(MOVE 1 (SPECIAL VAL) S)
(CALL 1 (E FR) S)
(CALL 1 (E CDDDR) S)
(MOVEM 1 (SPECIAL CLINK) S)
(MOVE 1 (SPECIAL TEM) S)
(MOVEM 1 (SPECIAL VAL) S)
(JCALL 0 (E POPJ) S)
NIL
(DEFPROP EXIT CEXIT CINT)
(LAP CRETURN SUBR)
(MOVE 4 (SPECIAL ALINK) S)
(MOVEI 3 (QUOTE NIL))
(MOVEI 2 (QUOTE RETURN1) S)
(HRRZ@ 1 (SPECIAL EXP) S)
(HLRZ@ 1 1)
(JCALL 4 (E DISPATCH) S)
NIL
(LAP RETURN1 SUBR)
(PUSH P (SPECIAL ALINK) S)
TAG1 (MOVE 1 0 P)
(JUMPN 1 TAG6)
(MOVEI 1 (QUOTE (RETURN FROM WHAT?)) S)
(CALL 17 (E CERR) S)
(JRST 0 TAG5)
TAG6 (HRRZ@ 2 1)
(HLRZ@ 2 2)
(HLRZ@ 2 2)
(MOVEI 1 (QUOTE *BODY) S)
(CALL 2 (E ASSOC) S)
(JUMPE 1 TAG12)
(HRRZ@ 1 0 P)
(CALL 1 (E CADR) S)
(HLRZ@ 1 1)
(PUSH P 1)
(CAIE 1 (QUOTE COND) S)
(JRST 0 TAG13)
(TDZA 1 1)
TAG13 (MOVEI 1 (QUOTE T) S)
(SUB P (C 1 0 1 0))
TAG12 (JUMPE 1 TAG10)
(HRRZ@ 1 0 P)
(CALL 1 (E CDDR) S)
(MOVEM 1 (SPECIAL CLINK) S)
(CALL 0 (E POPJ) S)
(JRST 0 TAG2)
TAG10
TAG5 (HRRZ@ 1 0 P)
(CALL 1 (E CDDR) S)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG2 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(DEFPROP RETURN CRETURN CINT)
(LAP CDISMISS SUBR)
(HRRZ@ 1 (SPECIAL EXP) S)
(JUMPE 1 TAG2)
(CLEARM 0 (SPECIAL TEM) S)
(MOVE 4 (SPECIAL ALINK) S)
(MOVEI 3 (QUOTE (TEM)) S)
(MOVEI 2 (QUOTE EXIT2) S)
(HRRZ@ 1 (SPECIAL EXP) S)
(HLRZ@ 1 1)
(CALL 4 (E DISPATCH) S)
(JRST 0 TAG1)
TAG2 (CLEARM 0 (SPECIAL VAL) S)
(CALL 0 (E RETURN1) S)
TAG1 (POPJ P)
NIL
(DEFPROP DISMISS CDISMISS CINT)
(LAP CONTINUE SUBR)
(MOVE 4 (SPECIAL ALINK) S)
(MOVEI 3 (QUOTE NIL))
(MOVEI 2 (QUOTE CONT1) S)
(HRRZ@ 1 (SPECIAL EXP) S)
(HLRZ@ 1 1)
(JCALL 4 (E DISPATCH) S)
NIL
(DEFPROP CONTINUE CONTINUE CINT)
(LAP CONT1 SUBR)
(MOVE 1 (SPECIAL VAL) S)
(MOVEM 1 (SPECIAL TEM) S)
(HRRZ@ 1 (SPECIAL EXP) S)
(HRRZ@ 1 1)
(JUMPE 1 TAG5)
(MOVE 4 (SPECIAL ALINK) S)
(MOVEI 3 (QUOTE (TEM)) S)
(MOVEI 2 (QUOTE CONT2) S)
(HRRZ@ 1 (SPECIAL EXP) S)
(CALL 1 (E CADR) S)
(CALL 4 (E DISPATCH) S)
(JRST 0 TAG4)
TAG5 (CLEARM 0 (SPECIAL VAL) S)
(MOVE 1 (SPECIAL TEM) S)
(CALL 1 (E FR) S)
(MOVEM 1 (SPECIAL FRAME*) S)
(CALL 0 (E RESTORE) S)
TAG4 (POPJ P)
NIL
(LAP CONT2 SUBR)
(MOVE 1 (SPECIAL TEM) S)
(CALL 1 (E FR) S)
(MOVEM 1 (SPECIAL FRAME*) S)
(JCALL 0 (E RESTORE) S)
NIL
(COMMENT RELATIVE EVALUATORS)
(LAP ICEVAL SUBR)
(MOVE 4 (SPECIAL ALINK) S)
(MOVEI 3 (QUOTE NIL))
(MOVEI 2 (QUOTE CEVAL1) S)
(HRRZ@ 1 (SPECIAL EXP) S)
(HLRZ@ 1 1)
(JCALL 4 (E DISPATCH) S)
NIL
(LAP CEVAL1 SUBR)
(MOVE 1 (SPECIAL VAL) S)
(MOVEM 1 (SPECIAL TEM1) S)
(HRRZ@ 1 (SPECIAL EXP) S)
(HRRZ@ 1 1)
(JUMPE 1 TAG5)
(MOVE 4 (SPECIAL ALINK) S)
(MOVEI 3 (QUOTE (TEM1)) S)
(MOVEI 2 (QUOTE CEVAL2) S)
(HRRZ@ 1 (SPECIAL EXP) S)
(CALL 1 (E CADR) S)
(CALL 4 (E DISPATCH) S)
(JRST 0 TAG4)
TAG5 (CALL 0 (E FRAME) S)
(MOVEM 1 (SPECIAL VAL) S)
(MOVEI 1 (QUOTE CEVAL2) S)
TAG4 (POPJ P)
NIL
(LAP CEVAL2 SUBR)
(MOVE 1 (SPECIAL VAL) S)
(PUSH P (SPECIAL TEM1) S)
(CALL 1 (E FR) S)
(MOVE 4 1)
(MOVEI 3 (QUOTE NIL))
(MOVEI 2 (QUOTE POPJ) S)
(POP P 1)
(JCALL 4 (E DISPATCH) S)
NIL
(LAP CEVAL LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE QUOTE) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE CEVAL) S)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(MOVEI 2 (QUOTE 1))
(MOVE 1 -1 P)
(CALL 2 (E >) S)
(JUMPE 1 TAG2)
(MOVE 1 -3 P)
(HRRZ 1 2 1)
(CALL 1 (E FR) S)
(MOVE 3 1)
(JRST 0 TAG1)
TAG2 (MOVE 3 (SPECIAL ALINK) S)
TAG1 (MOVEI 1 (QUOTE ICEVAL) S)
(POP P 2)
(JSP 6 SPECBIND)
(0 1 (SPECIAL PC) S)
(0 2 (SPECIAL EXP) S)
(0 3 (SPECIAL ALINK) S)
(JSP 6 SPECBIND)
(0 0 (SPECIAL CLINK) S)
(0 0 (SPECIAL FRAME*) S)
(0 0 (SPECIAL BVARS) S)
(0 0 (SPECIAL CHALOBV) S)
(0 0 (SPECIAL RUNF) S)
(CALL 0 (E RUN1) S)
(PUSHJ P SPECSTR)
(SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(DEFPROP CEVAL ICEVAL CINT)
(DEFPROP CEVAL CEVALB BACKTRACE)
(LAP ICALL SUBR)
(MOVE 4 (SPECIAL ALINK) S)
(MOVEI 3 (QUOTE NIL))
(MOVEI 2 (QUOTE CALL1) S)
(HRRZ@ 1 (SPECIAL EXP) S)
(HLRZ@ 1 1)
(JCALL 4 (E DISPATCH) S)
NIL
(LAP CALL1 SUBR)
(HRRZ@ 2 (SPECIAL EXP) S)
(HRRZ@ 2 2)
(MOVE 1 (SPECIAL VAL) S)
(CALL 2 (E CONS) S)
(MOVE 4 (SPECIAL ALINK) S)
(MOVEI 3 (QUOTE NIL))
(MOVEI 2 (QUOTE POPJ) S)
(JCALL 4 (E DISPATCH) S)
NIL
(DEFPROP CALL ICALL CINT)
(LAP INVOKE SUBR)
(MOVE 4 (SPECIAL ALINK) S)
(MOVEI 3 (QUOTE NIL))
(MOVEI 2 (QUOTE TRY1) S)
(HRRZ@ 1 (SPECIAL EXP) S)
(HLRZ@ 1 1)
(JCALL 4 (E DISPATCH) S)
NIL
(DEFPROP INVOKE INVOKE CINT)
(LAP TRY1 SUBR)
(MOVE 1 (SPECIAL VAL) S)
(MOVEM 1 (SPECIAL TEM) S)
(MOVE 4 (SPECIAL ALINK) S)
(MOVEI 3 (QUOTE (TEM)) S)
(MOVEI 2 (QUOTE TRY2) S)
(HRRZ@ 1 (SPECIAL EXP) S)
(CALL 1 (E CADR) S)
(JCALL 4 (E DISPATCH) S)
NIL
(LAP TRY2 SUBR)
(MOVE 1 (SPECIAL VAL) S)
(CALL 1 (E NCONS) S)
(MOVE 2 (SPECIAL TEM) S)
(CALL 2 (E XCONS) S)
(MOVEM 1 (SPECIAL EXP) S)
(CLEARM 0 (SPECIAL FRAME*) S)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 TAG15 0))
(MOVE 1 (SPECIAL TEM) S)
(CALL 1 (E PATTERN) S)
(PUSH P 1)
(PUSH P (SPECIAL VAL) S)
(MOVEM 1 -4 P)
(MOVNI 6 2)
(JCALL 16 (E MATCH) S)
TAG15 (MOVEM 1 0 P)
(JUMPN 1 TAG13)
(CALL 0 (E POPJ) S)
(JRST 0 TAG7)
TAG13 (PUSH P (C 0 0 TAG20 0))
(MOVE 1 (SPECIAL VAL) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE *CALLPAT) S)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(MOVE 1 -3 P)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE *METHPAT) S)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(HRRZ@ 1 -3 P)
(HLRZ@ 1 1)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE *CALLALIST) S)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(MOVE 1 (SPECIAL TEM) S)
(CALL 1 (E TEXT) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE *BODY) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(HLRZ@ 1 -2 P)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC) S)
TAG20 (MOVEM 1 (SPECIAL BVARS) S)
(CALL 0 (E CLOSE) S)
(MOVEI 1 (QUOTE AUXB) S)
(JRST 0 TAG7)
TAG7 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP TEXT SUBR)
(PUSH P 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG2)
(MOVEI 2 (QUOTE DATUM) S)
(MOVE 1 0 P)
(CALL 2 (E GET) S)
(CALL 1 (E TEXT) S)
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 0 P)
(CAIE 1 (QUOTE *CLOSURE) S)
(JRST 0 TAG3)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CALL 1 (E TEXT) S)
(JRST 0 TAG1)
TAG3 (HRRZ@ 1 0 P)
(CALL 1 (E CADDR) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP FR SUBR)
(PUSH P 1)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE *FRAME) S)
(JRST 0 TAG2)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 0 P)
(CAIE 1 (QUOTE *TAG) S)
(JRST 0 TAG3)
(HRRZ@ 1 0 P)
(CALL 1 (E CADR) S)
(JRST 0 TAG1)
TAG3 (HLRZ@ 1 0 P)
(CAIE 1 (QUOTE *CLOSURE) S)
(JRST 0 TAG4)
(HRRZ@ 1 0 P)
(CALL 1 (E CADR) S)
(JRST 0 TAG1)
TAG4 (HLRZ@ 1 0 P)
(CAIE 1 (QUOTE *AU-REVOIR) S)
(JRST 0 TAG5)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(JRST 0 TAG1)
TAG5 (MOVEI 1 (QUOTE (BAD FRAME SUPPLIED)) S)
(CALL 17 (E CERR) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(COMMENT IDENTIFIER MANIPULATORS)
(LAP VFRAME LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E =) S)
(JUMPE 1 TAG6)
(MOVE 1 (SPECIAL ALINK) S)
(JRST 0 TAG5)
TAG6 (MOVEI 2 (QUOTE 2))
(MOVE 1 -2 P)
(CALL 2 (E =) S)
(JUMPE 1 TAG7)
(MOVE 1 -4 P)
(HRRZ 1 2 1)
(CALL 1 (E FR) S)
(JRST 0 TAG5)
TAG7 (MOVEI 1 (QUOTE (WRONG # OF ARGS)) S)
(CALL 17 (E CERR) S)
TAG5 (MOVEM 1 0 P)
TAG1 (MOVE 1 0 P)
(JUMPE 1 TAG3)
(MOVE 1 -4 P)
(HRRZ 1 1 1)
(HRRZ@ 2 0 P)
(HLRZ@ 2 2)
(HLRZ@ 2 2)
(CALL 2 (E ASSOC) S)
(MOVEM 1 -1 P)
(JUMPE 1 TAG14)
(MOVE 1 0 P)
(CALL 1 (E CHAUX) S)
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE *FRAME) S)
(CALL 2 (E XCONS) S)
(JRST 0 TAG2)
TAG14 (HRRZ@ 1 0 P)
(CALL 1 (E CDAR) S)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP VLOC LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E =) S)
(JUMPE 1 TAG6)
(MOVE 1 -4 P)
(HRRZ 1 1 1)
(MOVE 2 (SPECIAL BVARS) S)
(CALL 2 (E ASSOC) S)
(MOVEM 1 -1 P)
(JUMPE 1 TAG10)
(JRST 0 TAG2)
TAG10 (MOVE 1 (SPECIAL ALINK) S)
(JRST 0 TAG5)
TAG6 (MOVEI 2 (QUOTE 2))
(MOVE 1 -2 P)
(CALL 2 (E =) S)
(JUMPE 1 TAG11)
(MOVE 1 -4 P)
(HRRZ 1 2 1)
(CALL 1 (E FR) S)
(JRST 0 TAG5)
TAG11 (MOVEI 1 (QUOTE (WRONG # OF ARGS)) S)
(CALL 17 (E CERR) S)
TAG5 (MOVEM 1 0 P)
TAG1 (MOVE 1 0 P)
(JUMPN 1 TAG15)
(MOVE 1 -4 P)
(HRRZ 1 1 1)
(MOVE 2 (SPECIAL GLOBALS) S)
(CALL 2 (E ASSOC) S)
(JRST 0 TAG2)
TAG15 (MOVE 1 -4 P)
(HRRZ 1 1 1)
(HRRZ@ 2 0 P)
(HLRZ@ 2 2)
(HLRZ@ 2 2)
(CALL 2 (E ASSOC) S)
(MOVEM 1 -1 P)
(JUMPE 1 TAG17)
(JRST 0 TAG2)
TAG17 (HRRZ@ 1 0 P)
(CALL 1 (E CDAR) S)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG2 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP RVALUE LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVEI 2 (QUOTE 1))
(CALL 2 (E =) S)
(JUMPE 1 TAG2)
(PUSH P (C 0 0 TAG3 0))
(MOVE 1 -3 P)
(HRRZ 1 1 1)
(PUSH P 1)
(MOVNI 6 1)
(JCALL 16 (E VLOC) S)
TAG3 (JRST 0 TAG1)
TAG2 (MOVEI 2 (QUOTE 2))
(MOVE 1 0 P)
(CALL 2 (E =) S)
(JUMPE 1 TAG4)
(PUSH P (C 0 0 TAG5 0))
(MOVE 1 -3 P)
(HRRZ 1 1 1)
(PUSH P 1)
(MOVE 1 -4 P)
(HRRZ 1 2 1)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E VLOC) S)
TAG5 (JRST 0 TAG1)
TAG4 (MOVEI 1 (QUOTE (WRONG # OF ARGS)) S)
(CALL 17 (E CERR) S)
TAG1 (MOVEM 1 0 P)
(JUMPE 1 TAG11)
(CALL 1 (E CDDR) S)
(JUMPE 1 TAG13)
(MOVE 1 0 P)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE RVALUE) S)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(HRRZ@ 1 0 P)
(CALL 1 (E CADR) S)
(CALL 2 (E APPLY#) S)
TAG13 (HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(JRST 0 TAG10)
TAG11 (MOVEI 1 (QUOTE (UNBOUND VARIABLE (QUOTE (ARG 1)))) S)
(CALL 17 (E CERR) S)
TAG10 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP IVAL SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL ID) S)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CAIE 2 (QUOTE *TOP) S)
(JRST 0 TAG7)
(MOVE 2 (SPECIAL BVARS) S)
(CALL 2 (E ASSOC) S)
(MOVEM 1 0 P)
(JUMPN 1 TAG2)
(MOVE 1 (SPECIAL ALINK) S)
(MOVEM 1 -1 P)
TAG7
TAG1 (MOVE 1 -1 P)
(JUMPN 1 TAG14)
(MOVE 2 (SPECIAL GLOBALS) S)
(MOVE 1 (SPECIAL ID) S)
(CALL 2 (E ASSOC) S)
(MOVEM 1 0 P)
(JUMPN 1 TAG2)
(MOVEI 1 (QUOTE (UNBOUND VARIABLE (/@ . ID))) S)
(CALL 17 (E CERR) S)
(JRST 0 TAG3)
(JRST 0 TAG13)
TAG14 (HRRZ@ 2 1)
(HLRZ@ 2 2)
(HLRZ@ 2 2)
(MOVE 1 (SPECIAL ID) S)
(CALL 2 (E ASSOC) S)
(MOVEM 1 0 P)
(JUMPN 1 TAG2)
TAG13 (HRRZ@ 1 -1 P)
(CALL 1 (E CDAR) S)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG2 (HRRZ@ 1 0 P)
(HRRZ@ 1 1)
(JUMPE 1 TAG22)
(MOVE 1 0 P)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE /,) S)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(HRRZ@ 1 0 P)
(CALL 1 (E CADR) S)
(CALL 2 (E APPLY#) S)
TAG22 (HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(CAIE 1 (QUOTE *UNASSIGNED) S)
(JRST 0 TAG24)
(MOVEI 1 (QUOTE (UNASSIGNED VARIABLE (/@ . ID))) S)
(CALL 17 (E CERR) S)
(JRST 0 TAG3)
TAG24 (MOVE 1 0 P)
TAG3 (SUB P (C 2 0 2 0))
(JRST 0 SPECSTR)
NIL
(LAP ICSETQ SUBR)
(MOVE 1 (SPECIAL EXP) S)
(MOVEM 1 (SPECIAL UARGS) S)
(JCALL 0 (E CSETQ0) S)
NIL
(LAP CSETQ0 SUBR)
(HRRZ@ 1 (SPECIAL UARGS) S)
(JUMPE 1 TAG2)
(HRRZ@ 1 (SPECIAL UARGS) S)
(HLRZ@ 1 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG6)
(HRRZ@ 1 (SPECIAL UARGS) S)
(HRRZ@ 1 1)
TAG6 (JUMPE 1 TAG4)
(MOVE 4 (SPECIAL ALINK) S)
(MOVEI 3 (QUOTE (UARGS)) S)
(MOVEI 2 (QUOTE CSETQ1) S)
(HRRZ@ 1 (SPECIAL UARGS) S)
(CALL 1 (E CADR) S)
(CALL 4 (E DISPATCH) S)
(JRST 0 TAG3)
TAG4 (MOVEI 1 (QUOTE (BAD CALL)) S)
(CALL 17 (E CERR) S)
(CALL 0 (E POPJ) S)
TAG3 (JRST 0 TAG1)
TAG2 (CALL 0 (E POPJ) S)
TAG1 (POPJ P)
NIL
(LAP CSETQ1 SUBR)
(PUSH P (C 0 0 TAG4 0))
(HRRZ@ 1 (SPECIAL UARGS) S)
(HLRZ@ 1 1)
(PUSH P 1)
(MOVNI 6 1)
(JCALL 16 (E VLOC) S)
TAG4 (PUSH P 1)
(JUMPE 1 TAG6)
(CALL 1 (E CDDR) S)
(JUMPE 1 TAG10)
(MOVE 1 (SPECIAL VAL) S)
(CALL 1 (E NCONS) S)
(MOVE 2 0 P)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE CSET) S)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(HRRZ@ 1 0 P)
(CALL 1 (E CADR) S)
(CALL 2 (E APPLY#) S)
TAG10 (HRRZ@ 1 0 P)
(PUSH P (SPECIAL VAL) S)
(POP P 2)
(HRLM@ 2 1)
(JRST 0 TAG5)
TAG6 (MOVE 1 (SPECIAL VAL) S)
(CALL 1 (E NCONS) S)
(HRRZ@ 2 (SPECIAL UARGS) S)
(HLRZ@ 2 2)
(CALL 2 (E XCONS) S)
(MOVE 2 (SPECIAL GLOBALS) S)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL GLOBALS) S)
TAG5 (HRRZ@ 1 (SPECIAL UARGS) S)
(HRRZ@ 1 1)
(MOVEM 1 (SPECIAL UARGS) S)
(MOVEI 1 (QUOTE CSETQ0) S)
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP CSETQ FSUBR)
(PUSH P 1)
(PUSH P (C 0 0 TAG1 0))
(HLRZ@ 1 1)
(PUSH P 1)
(HRRZ@ 1 -2 P)
(HLRZ@ 1 1)
(CALL 1 (E *EVAL) S)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E CSET) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(DEFPROP CSETQ ICSETQ CINT)
(LAP CSET LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVEI 2 (QUOTE 2))
(CALL 2 (E =) S)
(JUMPE 1 TAG2)
(PUSH P (C 0 0 TAG3 0))
(MOVE 1 -3 P)
(HRRZ 1 1 1)
(PUSH P 1)
(MOVNI 6 1)
(JCALL 16 (E VLOC) S)
TAG3 (JRST 0 TAG1)
TAG2 (MOVEI 2 (QUOTE 3))
(MOVE 1 0 P)
(CALL 2 (E =) S)
(JUMPE 1 TAG4)
(PUSH P (C 0 0 TAG5 0))
(MOVE 1 -3 P)
(HRRZ 1 1 1)
(PUSH P 1)
(MOVE 1 -4 P)
(HRRZ 1 3 1)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E VLOC) S)
TAG5 (JRST 0 TAG1)
TAG4 (MOVEI 1 (QUOTE (WRONG # OF ARGS)) S)
(CALL 17 (E CERR) S)
TAG1 (MOVEM 1 0 P)
(MOVE 1 0 P)
(JUMPE 1 TAG14)
(CALL 1 (E CDDR) S)
(JUMPE 1 TAG16)
(MOVE 1 -2 P)
(HRRZ 1 2 1)
(CALL 1 (E NCONS) S)
(MOVE 2 0 P)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE CSET) S)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(HRRZ@ 1 0 P)
(CALL 1 (E CADR) S)
(CALL 2 (E APPLY#) S)
TAG16 (MOVE 1 -2 P)
(HRRZ 1 2 1)
(HRRZ@ 2 0 P)
(HRLM@ 1 2)
(JRST 0 TAG13)
TAG14 (MOVE 1 -2 P)
(HRRZ 1 1 1)
(PUSH P 1)
(MOVE 1 -3 P)
(HRRZ 1 2 1)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVE 2 (SPECIAL GLOBALS) S)
(CALL 2 (E CONS) S)
(MOVEM 1 (SPECIAL GLOBALS) S)
TAG13 (MOVE 1 -2 P)
(HRRZ 1 2 1)
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP UNASSIGN SUBR)
(PUSH P 1)
(PUSH P (C 0 0 TAG1 0))
(PUSH P 1)
(MOVEI D (QUOTE *UNASSIGNED) S)
(PUSH P D)
(MOVNI 6 2)
(JCALL 16 (E CSET) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(COMMENT FRAME CONSTRUCTORS)
(LAP CHAUX SUBR)
(PUSH P 1)
(JUMPE 1 TAG1)
(CALL 1 (E CDAR) S)
(CAIE 1 (QUOTE AUXB1) S)
(JRST 0 TAG2)
(MOVEI 1 (QUOTE (ATTEMPT TO RETURN INCOMPLETE FRAME)) S)
(CALL 17 (E CERR) S)
(JRST 0 TAG1)
TAG2 (MOVE 1 0 P)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP TAG SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 (SPECIAL ALINK) S)
(MOVEI 2 (QUOTE (: FOO)) S)
(MOVEM 1 0 P)
(MOVEM 2 -2 P)
(HRRZ@ 1 -2 P)
(MOVE 2 -3 P)
(HRLM@ 2 1)
TAG1 (MOVE 1 0 P)
(JUMPE 1 TAG3)
(HRRZ@ 2 1)
(HLRZ@ 2 2)
(HLRZ@ 2 2)
(MOVEI 1 (QUOTE *BODY) S)
(CALL 2 (E ASSOC) S)
(MOVEM 1 -1 P)
(JUMPE 1 TAG12)
(HRRZ@ 2 1)
(HLRZ@ 2 2)
(MOVE 1 -2 P)
(CALL 2 (E MEMBER#) S)
(MOVEM 1 -1 P)
(JUMPE 1 TAG14)
(MOVE 1 0 P)
(CALL 1 (E CHAUX) S)
(MOVE 2 -1 P)
(MOVEI 1 (QUOTE BODY) S)
(CALL 2 (E CONS) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE LINE) S)
(CALL 2 (E CONS) S)
(HRRZ@ 2 0 P)
(CALL 2 (E CONS) S)
(CALL 1 (E NCONS) S)
(MOVE 2 -3 P)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE *TAG) S)
(CALL 2 (E XCONS) S)
(JRST 0 TAG2)
TAG14
TAG12 (HRRZ@ 1 0 P)
(CALL 1 (E CDDR) S)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 4 0 4 0))
(POPJ P)
NIL
(LAP ACTBLOCK SUBR)
(PUSH P (SPECIAL ALINK) S)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -1 P)
(JUMPE 1 TAG3)
(HRRZ@ 2 1)
(HLRZ@ 2 2)
(HLRZ@ 2 2)
(MOVEI 1 (QUOTE *BODY) S)
(CALL 2 (E ASSOC) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG7)
(MOVE 1 -1 P)
(CALL 1 (E CHAUX) S)
(HLRZ@ 1 0 P)
(CAIE 1 (QUOTE "AUX") S)
(JRST 0 TAG11)
(HRRZ@ 1 0 P)
(HRRZ@ 1 1)
(MOVEM 1 0 P)
TAG11 (MOVE 2 0 P)
(MOVEI 1 (QUOTE BODY) S)
(CALL 2 (E CONS) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE LINE) S)
(CALL 2 (E CONS) S)
(HRRZ@ 2 -1 P)
(CALL 2 (E CONS) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE *ACTBLOCK) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE *TAG) S)
(CALL 2 (E XCONS) S)
(JRST 0 TAG2)
TAG7 (HRRZ@ 1 -1 P)
(CALL 1 (E CDDR) S)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP ACCESS LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVEI 2 (QUOTE 0))
(CALL 2 (E =) S)
(JUMPE 1 TAG2)
(HRRZ@ 1 (SPECIAL ALINK) S)
(CALL 1 (E CDAR) S)
(JRST 0 TAG1)
TAG2 (MOVEI 2 (QUOTE 1))
(MOVE 1 0 P)
(CALL 2 (E =) S)
(JUMPE 1 TAG3)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
(CALL 1 (E FR) S)
(CALL 1 (E CDADR) S)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE (WRONG # OF ARGS)) S)
(CALL 17 (E CERR) S)
TAG1 (CALL 1 (E CHAUX) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE *FRAME) S)
(SUB P (C 1 0 1 0))
(JCALL 2 (E XCONS) S)
NIL
(LAP CONTROL LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVEI 2 (QUOTE 0))
(CALL 2 (E =) S)
(JUMPE 1 TAG2)
(HRRZ@ 1 (SPECIAL ALINK) S)
(CALL 1 (E CDDR) S)
(JRST 0 TAG1)
TAG2 (MOVEI 2 (QUOTE 1))
(MOVE 1 0 P)
(CALL 2 (E =) S)
(JUMPE 1 TAG3)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
(CALL 1 (E FR) S)
(CALL 1 (E CDDDR) S)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE (WRONG # OF ARGS)) S)
(CALL 17 (E CERR) S)
TAG1 (CALL 1 (E CHAUX) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE *FRAME) S)
(SUB P (C 1 0 1 0))
(JCALL 2 (E XCONS) S)
NIL
(LAP CLOSURE LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVEI 2 (QUOTE 1))
(MOVE 1 0 P)
(CALL 2 (E <) S)
(JUMPN 1 TAG6)
(MOVEI 2 (QUOTE 2))
(MOVE 1 0 P)
(CALL 2 (E >) S)
TAG6 (JUMPE 1 TAG5)
(MOVEI 1 (QUOTE (WRONG # OF ARGS)) S)
(CALL 17 (E CERR) S)
TAG5 (MOVE 1 -2 P)
(HRRZ 1 1 1)
(PUSH P 1)
(MOVEI 2 (QUOTE 2))
(MOVE 1 -1 P)
(CALL 2 (E =) S)
(JUMPE 1 TAG10)
(MOVE 1 -3 P)
(HRRZ 1 2 1)
(CALL 1 (E FR) S)
(JRST 0 TAG7)
TAG10 (MOVE 1 (SPECIAL ALINK) S)
TAG7 (CALL 1 (E CHAUX) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE *CLOSURE) S)
(SUB P (C 1 0 1 0))
(JCALL 2 (E XCONS) S)
NIL
(LAP FRAME SUBR)
(MOVE 1 (SPECIAL ALINK) S)
(CALL 1 (E CHAUX) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE *FRAME) S)
(JCALL 2 (E XCONS) S)
NIL
(COMMENT VERY DANGEROUS USER (HA!) FUNCTIONS)
(LAP SETACCESS SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVE 1 -1 P)
(CALL 1 (E FR) S)
(MOVEM 1 -1 P)
(MOVE 1 0 P)
(CALL 1 (E FR) S)
(MOVEM 1 0 P)
(HRRZ@ 1 -1 P)
(HLRZ@ 1 1)
(MOVE 2 0 P)
(HRRM@ 2 1)
(MOVEI 1 (QUOTE BOOM!) S)
(SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP SETCONTROL SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVE 1 -1 P)
(CALL 1 (E FR) S)
(MOVEM 1 -1 P)
(MOVE 1 0 P)
(CALL 1 (E FR) S)
(MOVEM 1 0 P)
(HRRZ@ 1 -1 P)
(HRRZ@ 1 1)
(MOVE 2 0 P)
(HRRM@ 2 1)
(MOVEI 1 (QUOTE BOOM!) S)
(SUB P (C 2 0 2 0))
(POPJ P)
NIL
(COMMENT DEBUGGING AIDS)
(LAP EXPRESSION SUBR)
(CALL 1 (E FR) S)
(JCALL 1 (E CADDR) S)
NIL
(LAP BACKTRACE LSUBR)
(JSP 3 *LCALL)
(JSP 6 SPECBIND)
(0 0 (SPECIAL TEM) S)
(PUSH P 1)
(CALL 0 (E FRAME) S)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 2 (QUOTE 0))
(MOVE 1 -4 P)
(CALL 2 (E =) S)
(JUMPE 1 TAG6)
(MOVEI 1 (QUOTE 777777) S)
(MOVEM 1 -2 P)
(JRST 0 TAG5)
TAG6 (MOVE 1 -6 P)
(HRRZ 1 1 1)
(MOVEM 1 -2 P)
TAG5 (MOVEI 2 (QUOTE 2))
(MOVE 1 -4 P)
(CALL 2 (E =) S)
(JUMPE 1 TAG12)
(MOVE 1 -6 P)
(HRRZ 1 2 1)
(MOVEM 1 (SPECIAL TEM) S)
TAG12
TAG1 (HRRZ@ 1 -3 P)
(HLRZ@ 1 1)
(JUMPE 1 TAG16)
(TDZA 1 1)
TAG16 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG15)
(MOVEI 2 (QUOTE 0))
(MOVE 1 -2 P)
(CALL 2 (E =) S)
TAG15 (JUMPE 1 TAG14)
(MOVEI 1 (QUOTE END-OF-BACKTRACE) S)
(JRST 0 TAG2)
TAG14 (MOVE 1 -3 P)
(CALL 1 (E EXPRESSION) S)
(MOVEM 1 0 P)
(MOVEI 2 (QUOTE BACKTRACE) S)
(HLRZ@ 1 1)
(CALL 2 (E GET) S)
(MOVEM 1 -1 P)
(JUMPE 1 TAG20)
(HRRZ@ 1 0 P)
(CALL 1 (E NCONS) S)
(MOVE 2 -3 P)
(CALL 2 (E XCONS) S)
(MOVE 2 1)
(MOVE 1 -1 P)
(CALL 2 (E APPLY#) S)
(JRST 0 TAG17)
TAG20 (MOVE 1 0 P)
(CALL 1 (E CPRINT) S)
TAG17 (MOVE 1 (SPECIAL TEM) S)
(JUMPE 1 TAG24)
(HRRZ@ 1 -3 P)
(CALL 1 (E CAAR) S)
(CALL 1 (E CPRIN1) S)
TAG24 (PUSH P (C 0 0 TAG25 0))
(PUSH P -4 P)
(MOVNI 6 1)
(JCALL 16 (E CONTROL) S)
TAG25 (MOVEM 1 -3 P)
(MOVE 1 -2 P)
(CALL 1 (E SUB1) S)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG2 (SUB P (C 5 0 5 0))
(JRST 0 SPECSTR)
NIL
(LAP LISTENB SUBR)
(PUSH P 1)
(HRRZ@ 2 0 P)
(HLRZ@ 2 2)
(MOVEI 1 (QUOTE EAR) S)
(CALL 2 (E IVAL) S)
(CALL 1 (E PRINT) S)
(HRRZ@ 2 0 P)
(HLRZ@ 2 2)
(MOVEI 1 (QUOTE MESSAGE) S)
(CALL 2 (E IVAL) S)
(CALL 1 (E CPRIN1) S)
(MOVEI 1 (QUOTE / ) S)
(SUB P (C 1 0 1 0))
(JCALL 1 (E PRINC) S)
NIL
(DEFPROP LISTEN ((MESSAGE) "AUX" ((EAR (GENLEV))) (ALLOW T) (CPRINT MESSAGE) (PROGBIND (LIST (/, EAR) (QUOTE LOO→
P)) (CSET EAR (TAG (QUOTE EAR))) (CSETQ LOOP (TAG (QUOTE LOOP))) (: EAR) (PRINT EAR) (: LOOP) (SETQ ← **) (/@ PR→
INT (QUOTE //)) (SET (QUOTE *) (CEVAL (SETQ ** (READ)))) (/@ CPRINT *) (GO LOOP))) CEXPR)
(DEFPROP LISTEN LISTENB BACKTRACE)
(LAP CONDB SUBR)
(MOVEI 1 (QUOTE COND) S)
(JCALL 1 (E PRINT) S)
NIL
(LAP PROGB SUBR)
(MOVEI 1 (QUOTE PROG) S)
(JCALL 1 (E PRINT) S)
NIL
(LAP CEVALB SUBR)
(MOVE 1 (SPECIAL TEM) S)
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE CEVAL) S)
(CALL 1 (E PRINT) S)
TAG2 (POPJ P)
NIL
(LAP UPDATEB SUBR)
(MOVEI 1 (QUOTE NIL))
(POPJ P)
NIL
(DEFPROP UPDATE UPDATEB BACKTRACE)
(LAP SETB SUBR)
(PUSH P 2)
(MOVEI 2 (QUOTE ((QUOTE *) (QUOTE **))) S)
(HLRZ@ 1 0 P)
(CALL 2 (E MEMBER#) S)
(JUMPN 1 TAG1)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE SET) S)
(CALL 2 (E CONS) S)
(CALL 1 (E PRINT) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(DEFPROP SET SETB BACKTRACE)
(LAP PROGBINDB SUBR)
(MOVEI 1 (QUOTE PROGBIND) S)
(JCALL 1 (E PRINT) S)
NIL
(COMMENT USER INTERFACE)
(LAP CDEFUN FSUBR)
(PUSH P 1)
(MOVEI 3 (QUOTE CEXPR) S)
(HRRZ@ 2 0 P)
(HLRZ@ 1 0 P)
(CALL 3 (E PUTPROP) S)
(HLRZ@ 1 0 P)
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP GENLEV SUBR)
(MOVE 1 (SPECIAL LEVNUM) S)
(CALL 1 (E ADD1) S)
(MOVEM 1 (SPECIAL LEVNUM) S)
(CALL 1 (E EXPLODE) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE (E A R -)) S)
(CALL 2 (E *APPEND) S)
(JCALL 1 (E READLIST) S)
NIL
(LAP : FSUBR)
(POPJ P)
NIL
(DEFPROP : CP-MACR CPRINT)
(LAP /@ FSUBR)
(JCALL 1 (E *EVAL) S)
NIL
(DEFPROP /@ CP-!" CPRINT)
(DEFPROP ! CP-MACR CPRINT)
(LAP /, FSUBR)
(MOVE 2 (SPECIAL *TOP) S)
(HLRZ@ 1 1)
(JCALL 2 (E IVAL) S)
NIL
(DEFPROP /, CP-MACR CPRINT)
(LAP CPRIN1 SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CALL 1 (E PATOM) S)
(JUMPE 1 TAG6)
(MOVE 1 -1 P)
(CALL 1 (E PRIN1) S)
(MOVE 1 -1 P)
(JRST 0 TAG2)
TAG6 (HLRZ@ 1 -1 P)
(CALL 1 (E LITATOM) S)
(JUMPE 1 TAG11)
(HLRZ@ 1 -1 P)
(CALL 1 (E NUMBERP) S)
(JUMPN 1 TAG13)
(MOVEI 2 (QUOTE CPRINT) S)
(HLRZ@ 1 -1 P)
(CALL 2 (E GET) S)
(MOVEM 1 0 P)
(JRST 0 TAG12)
TAG13 (MOVEI 1 (QUOTE NIL))
TAG12
TAG11 (JUMPE 1 TAG7)
(MOVE 2 -1 P)
(MOVE 1 0 P)
(CALL 2 (E APPLY#) S)
(MOVE 1 -1 P)
(JRST 0 TAG2)
TAG7 (MOVE 1 -1 P)
(MOVEM 1 0 P)
(MOVEI 1 (QUOTE /() S)
(CALL 1 (E PRINC) S)
TAG1 (HLRZ@ 1 0 P)
(CALL 1 (E CPRIN1) S)
(HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JUMPN 1 TAG16)
(MOVEI 1 (QUOTE /)) S)
(CALL 1 (E PRINC) S)
(MOVE 1 -1 P)
(JRST 0 TAG2)
TAG16 (CALL 1 (E PATOM) S)
(JUMPE 1 TAG20)
(MOVEI 1 (QUOTE / /./ ) S)
(CALL 1 (E PRINC) S)
(MOVE 1 0 P)
(CALL 1 (E PRIN1) S)
(MOVEI 1 (QUOTE /)) S)
(CALL 1 (E PRINC) S)
(MOVE 1 -1 P)
(JRST 0 TAG2)
TAG20 (MOVEI 1 (QUOTE / ) S)
(CALL 1 (E PRINC) S)
(JRST 0 TAG1)
TAG2 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP CPRINT SUBR)
(PUSH P 1)
(CALL 0 (E TERPRI) S)
(MOVE 1 0 P)
(CALL 1 (E CPRIN1) S)
(MOVEI 1 (QUOTE / ) S)
(CALL 1 (E PRINC) S)
(SUB P (C 1 0 1 0))
(JCALL 0 (E TERPRI) S)
NIL
(LAP CP-MACR FSUBR)
(PUSH P 1)
(HLRZ@ 1 0 P)
(CALL 1 (E PRINC) S)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(SUB P (C 1 0 1 0))
(JCALL 1 (E PRIN1) S)
NIL
(LAP CP-QUOTE FSUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE /') S)
(CALL 1 (E PRINC) S)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(SUB P (C 1 0 1 0))
(JCALL 1 (E CPRIN1) S)
NIL
(DEFPROP QUOTE CP-QUOTE CPRINT)
(LAP CP-*TAG FSUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE /() S)
(CALL 1 (E PRINC) S)
(HLRZ@ 1 0 P)
(CALL 1 (E PRIN1) S)
(MOVEI 1 (QUOTE / ) S)
(CALL 1 (E PRINC) S)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CALL 1 (E CPRIN1) S)
(MOVEI 1 (QUOTE / ) S)
(CALL 1 (E PRINC) S)
(HRRZ@ 1 0 P)
(CALL 1 (E CADR) S)
(CALL 1 (E CADDR) S)
(CALL 1 (E CPRIN1) S)
(MOVEI 1 (QUOTE /)) S)
(SUB P (C 1 0 1 0))
(JCALL 1 (E PRINC) S)
NIL
(DEFPROP *TAG CP-*TAG CPRINT)
(DEFPROP *CLOSURE CP-*TAG CPRINT)
(LAP CP-*FRAME FSUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE /() S)
(CALL 1 (E PRINC) S)
(HLRZ@ 1 0 P)
(CALL 1 (E PRIN1) S)
(MOVEI 1 (QUOTE / ) S)
(CALL 1 (E PRINC) S)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CALL 1 (E CADDR) S)
(CALL 1 (E CPRIN1) S)
(MOVEI 1 (QUOTE /)) S)
(SUB P (C 1 0 1 0))
(JCALL 1 (E PRINC) S)
NIL
(DEFPROP *FRAME CP-*FRAME CPRINT)
(DEFPROP *AU-REVOIR CP-*FRAME CPRINT)
(LAP CP-MATCH FSUBR)
(PUSH P 1)
(HLRZ@ 1 0 P)
(CALL 1 (E PRINC) S)
(HRRZ@ 1 0 P)
(HRRZ@ 1 1)
(JUMPE 1 TAG5)
(HRRZ@ 1 0 P)
(CALL 1 (E CPRIN1) S)
(JRST 0 TAG4)
TAG5 (HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(JUMPE 1 TAG6)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CALL 1 (E CPRIN1) S)
TAG6
TAG4 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(DEFPROP !' CP-MATCH CPRINT)
(DEFPROP !@ CP-MATCH CPRINT)
(LAP CP-!" FSUBR)
(PUSH P 1)
(HLRZ@ 1 0 P)
(CALL 1 (E PRINC) S)
(HRRZ@ 1 0 P)
(SUB P (C 1 0 1 0))
(JCALL 1 (E CPRIN1) S)
NIL
(LAP COLMAC SUBR)
(CALL 0 (E READ) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE :) S)
(JCALL 2 (E XCONS) S)
NIL
(LAP COMMAC SUBR)
(CALL 0 (E READ) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE /,) S)
(JCALL 2 (E XCONS) S)
NIL
(LAP ATMAC SUBR)
(CALL 0 (E READ) S)
(MOVEI 2 (QUOTE /@) S)
(JCALL 2 (E XCONS) S)
NIL
(LAP EXMAC SUBR)
(CALL 0 (E NXTCHR) S)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CAIE 1 (QUOTE $) S)
(JRST 0 TAG5)
(CALL 0 (E TYI) S)
(MOVEI 2 (QUOTE ARRAY) S)
(MOVEI 1 (QUOTE CONNIVER) S)
(CALL 2 (E GET) S)
(JSP 6 SPECBIND)
(0 1 (SPECIAL OBARRAY) S)
(CALL 0 (E READ) S)
(PUSHJ P SPECSTR)
(JRST 0 TAG1)
TAG5 (MOVEI 2 (QUOTE ((" !") (/@ !@))) S)
(CALL 2 (E ASSOC) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG6)
(CALL 0 (E TYI) S)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(PUSH P 1)
(CALL 0 (E READ) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(JRST 0 TAG1)
TAG6 (MOVEI 2 (QUOTE ((? !?) (/' !') (> !>) (/, !/,) (< !<) (; !;))) S)
(MOVE 1 -1 P)
(CALL 2 (E ASSOC) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG7)
(CALL 0 (E TYI) S)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(JRST 0 TAG4)
TAG7 (MOVE 1 -1 P)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE MACRO) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE !) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE BAD) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E PRINT) S)
(MOVEI 1 (QUOTE ERRORX) S)
(CALL 1 (E ERR) S)
TAG4 (CALL 0 (E NXTCHR) S)
(CALL 1 (E SEPARATOR) S)
(JUMPE 1 TAG13)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E NCONS) S)
(MOVE 2 0 P)
(CALL 2 (E XCONS) S)
(JRST 0 TAG12)
TAG13 (CALL 0 (E READ) S)
(MOVEM 1 -1 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG14)
(MOVE 1 -1 P)
(CALL 1 (E NCONS) S)
(MOVE 2 0 P)
(CALL 2 (E XCONS) S)
(JRST 0 TAG12)
TAG14 (MOVE 2 -1 P)
(MOVE 1 0 P)
(CALL 2 (E CONS) S)
TAG12
TAG1 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP NXTCHR SUBR)
(CALL 0 (E TYIPEEK) S)
(CALL 1 (E ASCII) S)
(JCALL 1 (E INTERN) S)
NIL
(LAP SEPARATOR SUBR)
(MOVEI 2 (QUOTE (/ / /) /] /⎇ /
/
)) S) (JCALL 2 (E MEMQ#) S)
NIL
(SETQ *INDEXTHRESHOLD 12)
(LAP OBJECT LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVEI 2 (QUOTE 0))
(CALL 2 (E =) S)
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG1)
TAG2 (MOVEI 2 (QUOTE 1))
(MOVE 1 0 P)
(CALL 2 (E =) S)
(JUMPE 1 TAG3)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
(JRST 0 TAG1)
TAG3 (CALL 0 (E TMA) S)
TAG1 (CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE *OBJECT) S)
(SUB P (C 1 0 1 0))
(JCALL 2 (E XCONS) S)
NIL
(LAP TMA SUBR)
(MOVEI 1 (QUOTE (TOO MANY ARGUMENTS)) S)
(JCALL 17 (E CERR) S)
NIL
(LAP TFA SUBR)
(MOVEI 1 (QUOTE (TOO FEW ARGUMENTS)) S)
(JCALL 17 (E CERR) S)
NIL
(LAP MAKE-METHOD SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(HLRZ@ 1 2)
(MOVEM 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG5)
(MOVEI 2 (QUOTE DATUM) S)
(MO←e 1 0 P)
(CALL 2 (E GET) S)
(MOVEM 1 -1 P)
(JUMPE 1 TAG7)
(CALL 1 (E CMARKERS) S)
(HRRZ@ 1 1)
TAG7 (MOVEM 1 -2 P)
(PUSH P (C 0 0 TAG10 0))
(HRRZ@ 1 -4 P)
(HRRZ@ 1 1)
(CALL 1 (E NCONS) S)
(HRRZ@ 2 -4 P)
(HLRZ@ 2 2)
(CALL 2 (E XCONS) S)
(MOVE 2 -1 P)
(CALL 2 (E XCONS) S)
(MOVE 2 -5 P)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(PUSH P -4 P)
(MOVNI 6 2)
(JCALL 16 (E NCONC) S)
TAG10 (MOVEI 3 (QUOTE DATUM) S)
(MOVE 2 1)
(MOVE 1 0 P)
(CALL 3 (E PUTPROP) S)
(MOVE 1 0 P)
(JRST 0 TAG1)
TAG5 (HRRZ@ 1 2)
(CALL 1 (E NCONS) S)
(MOVE 2 0 P)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE NIL))
(CALL 2 (E XCONS) S)
(MOVE 2 -4 P)
(CALL 2 (E XCONS) S)
(JRST 0 TAG1)
TAG1 (SUB P (C 5 0 5 0))
(POPJ P)
NIL
(LAP IF-NEEDED FSUBR)
(MOVE 2 1)
(MOVEI 1 (QUOTE IF-NEEDED) S)
(JCALL 2 (E MAKE-METHOD) S)
NIL
(LAP IF-ADDED FSUBR)
(MOVE 2 1)
(MOVEI 1 (QUOTE IF-ADDED) S)
(JCALL 2 (E MAKE-METHOD) S)
NIL
(LAP IF-REMOVED FSUBR)
(MOVE 2 1)
(MOVEI 1 (QUOTE IF-REMOVED) S)
(JCALL 2 (E MAKE-METHOD) S)
NIL
(LAP DATA-INIT LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVEI 2 (QUOTE 0))
(CALL 2 (E >) S)
(JUMPE 1 TAG4)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
(JRST 0 TAG3)
TAG4 (MOVEI 1 (QUOTE 144))
TAG3 (PUSH P 1)
(MOVEI 2 (QUOTE 1))
(MOVE 1 -1 P)
(CALL 2 (E >) S)
(JUMPE 1 TAG10)
(MOVE 2 -3 P)
(HRRZ 2 2 2)
(JRST 0 TAG7)
TAG10 (MOVEI 2 (QUOTE 12))
TAG7 (MOVEM 2 -1 P)
(MOVEI 1 (QUOTE NUMACT) S)
(CALL 1 (E BOUNDP) S)
(JUMPE 1 TAG17)
(PUSH P (C 0 0 (QUOTE 0) 0))
TAG1 (MOVE 2 (SPECIAL NUMACT) S)
(MOVE 1 0 P)
(CALL 2 (E =) S)
(JUMPE 1 TAG24)
(JRST 0 TAG20)
TAG24 (MOVE 1 0 P)
(CALL 1 (E FRAMES) S)
(CALL 1 (E NUMVAL) S)
(CALL 1 (E CDDR) S)
(PUSH P 1)
TAG2 (MOVE 1 0 P)
(JUMPN 1 TAG31)
(JRST 0 TAG25)
TAG31 (HLRZ@ 1 0 P)
(PUSH P 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG34)
(MOVE 1 0 P)
(CALL 1 (E CMARKERS) S)
(HLLZS@ 0 1)
TAG34 (SUB P (C 1 0 1 0))
(HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG2)
TAG25 (SUB P (C 1 0 1 0))
(MOVE 1 0 P)
(CALL 1 (E ADD1) S)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG20 (SUB P (C 1 0 1 0))
TAG17 (MOVE 1 0 P)
(MOVEM 1 (SPECIAL NUMCON) S)
(MOVE 1 -1 P)
(MOVEM 1 (SPECIAL INCCON) S)
(MOVEI 1 (QUOTE (FRAMES 22 NUMCON)) S)
(CALL 17 (E ARRAY) S)
(MOVEI 1 (QUOTE (RFRAMES T NUMCON)) S)
(CALL 17 (E ARRAY) S)
(MOVEI 1 (QUOTE 0))
(MOVEM 1 (SPECIAL *CNUM) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE *CFRAME) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE FIXNUM) S)
(CALL 2 (E MAKNUM) S)
(PUSH P 1)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E FRAMES) S)
(POP P 1)
(PUSHJ P NSTR)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E FRAMES) S)
(CALL 1 (E NUMVAL) S)
(HRRZ@ 2 1)
(MOVEI 1 (QUOTE 0))
(PUSH P 2)
(CALL 1 (E RFRAMES) S)
(POP P 1)
(PUSHJ P NSTR)
(MOVEI 1 (QUOTE (CONTEXT (CSETQ GLOBAL (LIST (QUOTE *CONTEXT) (NUMVAL (FRAMES 0)))))) S)
(CALL 17 (E CSETQ) S)
(MOVEI 1 (QUOTE 1))
(MOVEM 1 (SPECIAL NUMACT) S)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE (PATTERN THING)) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE *LIST) S)
(CALL 2 (E XCONS) S)
(MOVEM 1 (SPECIAL *ITEMS) S)
(MOVEI 3 (QUOTE *INDEX) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE ITEM) S)
(CALL 3 (E PUTPROP) S)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE (PATTERN THING)) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE *LIST) S)
(CALL 2 (E XCONS) S)
(MOVEM 1 (SPECIAL *IF-NEEDEDS) S)
(MOVEI 3 (QUOTE *INDEX) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE IF-NEEDED) S)
(CALL 3 (E PUTPROP) S)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE (PATTERN THING)) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE *LIST) S)
(CALL 2 (E XCONS) S)
(MOVEM 1 (SPECIAL *IF-ADDEDS) S)
(MOVEI 3 (QUOTE *INDEX) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE IF-ADDED) S)
(CALL 3 (E PUTPROP) S)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE (PATTERN THING)) S)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE *LIST) S)
(CALL 2 (E XCONS) S)
(MOVEM 1 (SPECIAL *IF-REMOVEDS) S)
(MOVEI 3 (QUOTE *INDEX) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE IF-REMOVED) S)
(SUB P (C 2 0 2 0))
(JCALL 3 (E PUTPROP) S)
NIL
(LAP FETCH LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 -4 P)
(HRRZ 1 1 1)
(MOVEM 1 0 P)
(MOVE 2 -2 P)
(MOVEI 1 (QUOTE 1))
(CALL 2 (E GETCONTEXT) S)
(MOVE 2 1)
(JUMPN 2 TAG7)
(MOVE 2 -2 P)
(ADD 2 -4 P)
(HRRZ 2 -577777 2)
TAG7 (MOVEM 2 -1 P)
(MOVE 1 0 P)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE *POSSIBILITIES) S)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(PUSH P (C 0 0 TAG10 0))
(MOVE 2 -3 P)
(MOVE 1 -2 P)
(CALL 2 (E FETCHI1) S)
(PUSH P 1)
(MOVE 3 -4 P)
(MOVE 2 (SPECIAL *IF-NEEDEDS) S)
(MOVE 1 -3 P)
(CALL 3 (E FETCHM1) S)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC) S)
TAG10 (MOVEI 2 (QUOTE *IGNORE) S)
(CALL 2 (E XCONS) S)
(POP P 2)
(SUB P (C 3 0 3 0))
(JCALL 2 (E XCONS) S)
NIL
(LAP FETCHI LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE *POSSIBILITIES) S)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(MOVE 1 -3 P)
(HRRZ 1 1 1)
(PUSH P 1)
(MOVE 2 -2 P)
(MOVEI 1 (QUOTE 1))
(CALL 2 (E GETCONTEXT) S)
(MOVE 2 1)
(JUMPN 2 TAG1)
(MOVE 2 -2 P)
(ADD 2 -4 P)
(HRRZ 2 -577777 2)
TAG1 (POP P 1)
(CALL 2 (E FETCHI1) S)
(MOVEI 2 (QUOTE *IGNORE) S)
(CALL 2 (E XCONS) S)
(POP P 2)
(SUB P (C 1 0 1 0))
(JCALL 2 (E XCONS) S)
NIL
(LAP FETCHM LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVEI 2 (QUOTE 3))
(MOVE 1 0 P)
(CALL 2 (E >) S)
(JUMPE 1 TAG5)
(CALL 0 (E TMA) S)
TAG5 (MOVEI 2 (QUOTE 3))
(MOVE 1 0 P)
(CALL 2 (E <) S)
(JUMPE 1 TAG7)
(MOVEI 1 (QUOTE (CONTEXT)) S)
(CALL 17 (E /,) S)
(JRST 0 TAG6)
TAG7 (MOVE 1 -2 P)
(HRRZ 1 3 1)
TAG6 (PUSH P 1)
(MOVE 1 -3 P)
(HRRZ 1 1 1)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE *POSSIBILITIES) S)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(MOVE 1 -4 P)
(HRRZ 1 1 1)
(PUSH P 1)
(MOVEI 2 (QUOTE 2))
(MOVE 1 -3 P)
(CALL 2 (E <) S)
(JUMPE 1 TAG11)
(MOVE 2 (SPECIAL *IF-NEEDEDS) S)
(JRST 0 TAG10)
TAG11 (MOVE 1 -5 P)
(HRRZ 1 2 1)
(MOVEI 2 (QUOTE *INDEX) S)
(CALL 2 (E GET) S)
(EXCH 2 1)
TAG10 (MOVE 3 -2 P)
(POP P 1)
(CALL 3 (E FETCHM1) S)
(MOVEI 2 (QUOTE *IGNORE) S)
(CALL 2 (E XCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(SUB P (C 1 0 1 0))
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP FETCHI1 SUBR)
(PUSH P 1)
(PUSH P 2)
(HRRZ@ 4 2)
(MOVEI 3 (QUOTE T) S)
(EXCH 2 1)
(MOVE 1 (SPECIAL *ITEMS) S)
(CALL 4 (E SEARCH) S)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -4 P)
(JUMPE 1 TAG11)
(HLRZ@ 1 -4 P)
(PUSH P 1)
(PUSH P (C 0 0 TAG20 0))
(PUSH P -10 P)
(HLRZ@ 1 1)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E MATCH) S)
TAG20 (MOVEM 1 -4 P)
(JUMPE 1 TAG17)
(HLRZ@ 1 1)
(CALL 1 (E NCONS) S)
(MOVE 2 0 P)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE *ITEM) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
TAG17 (MOVEM 1 -3 P)
(SUB P (C 1 0 1 0))
(JUMPE 1 TAG15)
(MOVE 1 -1 P)
(JUMPE 1 TAG22)
(MOVE 1 -2 P)
(HRRM@ 1 -1 P)
(MOVE 1 -1 P)
(JRST 0 TAG21)
TAG22 (MOVE 1 -2 P)
(MOVEM 1 0 P)
TAG21 (CALL 1 (E LAST) S)
(MOVEM 1 -1 P)
TAG15 (HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(JRST 0 TAG1)
TAG11 (MOVE 1 0 P)
(SUB P (C 7 0 7 0))
(POPJ P)
NIL
(LAP FETCHM1 SUBR)
(HRRZ@ 4 3)
(MOVEI 3 (QUOTE NIL))
(PUSH P 2)
(MOVE 2 1)
(EXCH 1 0 P)
(CALL 4 (E SEARCH) S)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -3 P)
(JUMPE 1 TAG6)
(HLRZ@ 1 -3 P)
(PUSH P 1)
(PUSH P (C 0 0 TAG13 0))
(CALL 1 (E PATTERN) S)
(PUSH P 1)
(PUSH P -7 P)
(MOVNI 6 2)
(JCALL 16 (E MATCH) S)
TAG13 (PUSH P 1)
(JUMPE 1 TAG15)
(PUSH P (C 0 0 TAG16 0))
(PUSH P 1)
(MOVE 1 -10 P)
(CALL 1 (E NCONS) S)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC) S)
TAG16 (MOVE 2 -1 P)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE *METHOD) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
TAG15 (MOVEM 1 -4 P)
(SUB P (C 2 0 2 0))
(JUMPE 1 TAG12)
(MOVE 1 -1 P)
(JUMPE 1 TAG20)
(MOVE 1 -2 P)
(HRRM@ 1 -1 P)
(MOVE 1 -1 P)
(JRST 0 TAG17)
TAG20 (MOVE 1 -2 P)
(MOVEM 1 0 P)
TAG17 (CALL 1 (E LAST) S)
(MOVEM 1 -1 P)
TAG12 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JRST 0 TAG1)
TAG6 (MOVE 1 0 P)
(SUB P (C 5 0 5 0))
(POPJ P)
NIL
(LAP REAL LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
(PUSH P 1)
(MOVE 2 -1 P)
(MOVEI 1 (QUOTE 1))
(CALL 2 (E GETCONTEXT) S)
(MOVE 2 1)
(JUMPN 2 TAG3)
(MOVE 2 -1 P)
(ADD 2 -3 P)
(HRRZ 2 -577777 2)
TAG3 (POP P 1)
(CALL 2 (E REALITY) S)
(JUMPE 1 TAG2)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
TAG2 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP UNREAL LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
(PUSH P 1)
(MOVE 2 -1 P)
(MOVEI 1 (QUOTE 1))
(CALL 2 (E GETCONTEXT) S)
(MOVE 2 1)
(JUMPN 2 TAG4)
(MOVE 2 -1 P)
(ADD 2 -3 P)
(HRRZ 2 -577777 2)
TAG4 (POP P 1)
(CALL 2 (E REALITY) S)
(JUMPN 1 TAG2)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE NIL))
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP PRESENT LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 -6 P)
(HRRZ 1 1 1)
(MOVEM 1 -1 P)
(MOVE 2 -4 P)
(MOVEI 1 (QUOTE 1))
(CALL 2 (E GETCONTEXT) S)
(MOVE 2 1)
(JUMPN 2 TAG11)
(MOVE 2 -4 P)
(ADD 2 -6 P)
(HRRZ 2 -577777 2)
TAG11 (HRRZ@ 4 2)
(MOVEI 3 (QUOTE T) S)
(MOVEM 2 0 P)
(MOVE 2 -1 P)
(MOVE 1 (SPECIAL *ITEMS) S)
(CALL 4 (E SEARCH) S)
(MOVEM 1 -2 P)
TAG1 (MOVE 1 -2 P)
(JUMPE 1 TAG4)
(PUSH P (C 0 0 TAG15 0))
(PUSH P -2 P)
(HLRZ@ 1 1)
(CALL 1 (E ITEM) S)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E MATCH) S)
TAG15 (MOVEM 1 -3 P)
(JUMPE 1 TAG14)
(HLRZ@ 1 1)
(PUSH P 1)
TAG2 (MOVE 1 0 P)
(JUMPE 1 TAG22)
(HLRZ@ 1 0 P)
(PUSH P 1)
(PUSH P (C 0 0 TAG25 0))
(HLRZ@ 1 1)
(PUSH P 1)
(HRRZ@ 1 -2 P)
(HLRZ@ 1 1)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E CSET) S)
TAG25 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(SUB P (C 1 0 1 0))
(JRST 0 TAG2)
TAG22 (HLRZ@ 1 -3 P)
(SUB P (C 1 0 1 0))
(JRST 0 TAG3)
TAG14 (HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JRST 0 TAG1)
TAG4 (MOVEI 1 (QUOTE NIL))
TAG3 (SUB P (C 5 0 5 0))
(POPJ P)
NIL
(LAP ABSENT LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(PUSH P (C 0 0 TAG1 0))
(MOVE 1 -3 P)
(HRRZ 1 1 1)
(CALL 1 (E DATUM) S)
(PUSH P 1)
(MOVE 2 -2 P)
(MOVEI 1 (QUOTE 1))
(CALL 2 (E GETCONTEXT) S)
(JUMPN 1 TAG2)
(MOVE 1 -2 P)
(ADD 1 -4 P)
(HRRZ 1 -577777 1)
TAG2 (PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E UNREAL) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP SEARCH SUBR)
(PUSH P 4)
(CALL 3 (E ISEARCH) S)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -3 P)
(JUMPE 1 TAG6)
(HLRZ@ 1 -3 P)
(PUSH P 1)
(CALL 1 (E CMARKERS) S)
(MOVE 2 -5 P)
(HRRZ@ 1 1)
(CALL 2 (E REALITY1) S)
(JUMPE 1 TAG14)
(MOVE 1 0 P)
(CALL 1 (E NCONS) S)
TAG14 (MOVEM 1 -3 P)
(SUB P (C 1 0 1 0))
(JUMPE 1 TAG12)
(MOVE 1 -1 P)
(JUMPE 1 TAG16)
(MOVE 1 -2 P)
(HRRM@ 1 -1 P)
(MOVE 1 -1 P)
(JRST 0 TAG15)
TAG16 (MOVE 1 -2 P)
(MOVEM 1 0 P)
TAG15 (CALL 1 (E LAST) S)
(MOVEM 1 -1 P)
TAG12 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JRST 0 TAG1)
TAG6 (MOVE 1 0 P)
(SUB P (C 5 0 5 0))
(POPJ P)
NIL
(LAP REALITY SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL DATUM) S)
(PUSH P 2)
(CALL 1 (E CMARKERS) S)
(HRRZ@ 2 0 P)
(HRRZ@ 1 1)
(SUB P (C 1 0 1 0))
(CALL 2 (E REALITY1) S)
(JRST 0 SPECSTR)
NIL
(LAP REALITY1 SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL CMARKERS) S)
(0 2 (SPECIAL CFRAMES) S)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (CALL 0 (E MFINTERSECT) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG6)
(MOVE 2 -1 P)
(CALL 1 (E CADR) S)
(CALL 2 (E INVISIBLE) S)
(JUMPN 1 TAG7)
(MOVE 1 0 P)
(JRST 0 TAG2)
TAG7 (HRRZ@ 1 (SPECIAL CMARKERS) S)
(MOVEM 1 (SPECIAL CMARKERS) S)
(HRRZ@ 1 (SPECIAL CFRAMES) S)
(MOVEM 1 (SPECIAL CFRAMES) S)
(JRST 0 TAG1)
TAG6 (JRST 0 TAG3)
TAG3 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 2 0 2 0))
(JRST 0 SPECSTR)
NIL
(LAP DATUM SUBR)
(PUSH P 1)
(MOVEI 3 (QUOTE T) S)
(MOVE 2 1)
(MOVE 1 (SPECIAL *ITEMS) S)
(CALL 3 (E ISEARCH) S)
(PUSH P 1)
TAG1 (MOVE 1 0 P)
(JUMPN 1 TAG6)
(MOVE 1 -1 P)
(CALL 1 (E NCONS) S)
(JRST 0 TAG2)
TAG6 (HLRZ@ 1 1)
(CALL 1 (E ITEM) S)
(MOVE 2 -1 P)
(CALL 2 (E EQUAL) S)
(JUMPE 1 TAG10)
(HLRZ@ 1 0 P)
(JRST 0 TAG2)
TAG10 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG2 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP ADD LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(PUSH P (C 0 0 TAG1 0))
(MOVE 1 -3 P)
(HRRZ 1 1 1)
(CALL 1 (E DATUMIZE) S)
(PUSH P 1)
(MOVE 2 -2 P)
(MOVEI 1 (QUOTE 1))
(CALL 2 (E GETCONTEXT) S)
(JUMPN 1 TAG2)
(MOVE 1 -2 P)
(ADD 1 -4 P)
(HRRZ 1 -577777 1)
TAG2 (PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E REALIZE) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(DEFPROP ADD ((THING "OPTIONAL" (CONTEXT CONTEXT)) (REALIZE (/@ DATUMIZE (/, THING)) CONTEXT)) CEXPR)
(LAP CREMOVE LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(PUSH P (C 0 0 TAG1 0))
(MOVE 1 -3 P)
(HRRZ 1 1 1)
(CALL 1 (E DATUMIZE) S)
(PUSH P 1)
(MOVE 2 -2 P)
(MOVEI 1 (QUOTE 1))
(CALL 2 (E GETCONTEXT) S)
(JUMPN 1 TAG2)
(MOVE 1 -2 P)
(ADD 1 -4 P)
(HRRZ 1 -577777 1)
TAG2 (PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E UNREALIZE) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(DEFPROP REMOVE ((THING "OPTIONAL" (CONTEXT CONTEXT)) (UNREALIZE (/@ DATUMIZE (/, THING)) CONTEXT)) CEXPR)
(LAP INSERT LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
(CALL 1 (E DATUMIZE) S)
(PUSH P 1)
(PUSH P 0 P)
(MOVE 2 -2 P)
(MOVEI 1 (QUOTE 1))
(CALL 2 (E GETCONTEXT) S)
(MOVE 2 1)
(JUMPN 2 TAG4)
(MOVE 2 -2 P)
(ADD 2 -4 P)
(HRRZ 2 -577777 2)
TAG4 (POP P 1)
(CALL 2 (E REVEAL) S)
(MOVE 1 0 P)
(SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP KILL LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
(CALL 1 (E DATUMIZE) S)
(PUSH P 1)
(PUSH P 0 P)
(MOVE 2 -2 P)
(MOVEI 1 (QUOTE 1))
(CALL 2 (E GETCONTEXT) S)
(MOVE 2 1)
(JUMPN 2 TAG4)
(MOVE 2 -2 P)
(ADD 2 -4 P)
(HRRZ 2 -577777 2)
TAG4 (POP P 1)
(CALL 2 (E HIDE) S)
(MOVE 1 0 P)
(SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP ACTUALIZE LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
(PUSH P 1)
(MOVE 2 -1 P)
(MOVEI 1 (QUOTE 1))
(CALL 2 (E GETCONTEXT) S)
(MOVE 2 1)
(JUMPN 2 TAG4)
(MOVE 2 -1 P)
(ADD 2 -3 P)
(HRRZ 2 -577777 2)
TAG4 (POP P 1)
(CALL 2 (E REVEAL) S)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP UNACTUALIZE LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
(PUSH P 1)
(MOVE 2 -1 P)
(MOVEI 1 (QUOTE 1))
(CALL 2 (E GETCONTEXT) S)
(MOVE 2 1)
(JUMPN 2 TAG4)
(MOVE 2 -1 P)
(ADD 2 -3 P)
(HRRZ 2 -577777 2)
TAG4 (POP P 1)
(CALL 2 (E HIDE) S)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP REALIZE LSUBR)
(JSP 3 *LCALL)
(JSP 6 SPECBIND)
(0 0 (SPECIAL CON) S)
(0 0 (SPECIAL PAT) S)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 -3 P)
(HRRZ 1 1 1)
(MOVEM 1 0 P)
(MOVE 2 -1 P)
(MOVEI 1 (QUOTE 1))
(CALL 2 (E GETCONTEXT) S)
(MOVE 2 1)
(JUMPN 2 TAG7)
(MOVE 2 -1 P)
(ADD 2 -3 P)
(HRRZ 2 -577777 2)
TAG7 (MOVEM 2 (SPECIAL CON) S)
(MOVE 2 (SPECIAL CON) S)
(MOVE 1 0 P)
(CALL 2 (E REVEAL) S)
(JUMPE 1 TAG13)
(MOVE 1 0 P)
(CALL 1 (E ITEM) S)
(MOVEM 1 (SPECIAL PAT) S)
TAG13 (JUMPE 1 TAG11)
(PUSH P (C 0 0 TAG14 0))
(MOVEI D (QUOTE (CALLDEMONS (/@ . PAT) (/@ . *IF-ADDEDS) (/@ . CON))) S)
(PUSH P D)
(MOVNI 6 1)
(JCALL 16 (E CEVAL) S)
TAG14
TAG11 (MOVE 1 0 P)
(SUB P (C 2 0 2 0))
(JRST 0 SPECSTR)
NIL
(DEFPROP REALIZE ((DATUM "OPTIONAL" (CONTEXT CONTEXT)) "AUX" (PAT) (COND ((/@ AND (REVEAL (/, DATUM) (/, CONTEXT→
)) (CSETQ PAT (ITEM (/, DATUM)))) (CALLDEMONS PAT (/@ . *IF-ADDEDS) CONTEXT))) DATUM) CEXPR)
(LAP UNREALIZE LSUBR)
(JSP 3 *LCALL)
(JSP 6 SPECBIND)
(0 0 (SPECIAL CON) S)
(0 0 (SPECIAL PAT) S)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 -3 P)
(HRRZ 1 1 1)
(MOVEM 1 0 P)
(MOVE 2 -1 P)
(MOVEI 1 (QUOTE 1))
(CALL 2 (E GETCONTEXT) S)
(MOVE 2 1)
(JUMPN 2 TAG7)
(MOVE 2 -1 P)
(ADD 2 -3 P)
(HRRZ 2 -577777 2)
TAG7 (MOVEM 2 (SPECIAL CON) S)
(MOVE 2 (SPECIAL CON) S)
(MOVE 1 0 P)
(CALL 2 (E HIDE) S)
(JUMPE 1 TAG13)
(MOVE 1 0 P)
(CALL 1 (E ITEM) S)
(MOVEM 1 (SPECIAL PAT) S)
TAG13 (JUMPE 1 TAG11)
(PUSH P (C 0 0 TAG14 0))
(MOVEI D (QUOTE (CALLDEMONS (/@ . PAT) (/@ . *IF-REMOVEDS) (/@ . CON))) S)
(PUSH P D)
(MOVNI 6 1)
(JCALL 16 (E CEVAL) S)
TAG14
TAG11 (MOVE 1 0 P)
(SUB P (C 2 0 2 0))
(JRST 0 SPECSTR)
NIL
(DEFPROP UNREALIZE ((DATUM "OPTIONAL" (CONTEXT CONTEXT)) "AUX" (PAT) (COND ((/@ AND (HIDE (/, DATUM) (/, CONTEXT→
)) (CSETQ PAT (ITEM (/, DATUM)))) (CALLDEMONS PAT (/@ . *IF-REMOVEDS) CONTEXT))) DATUM) CEXPR)
(LAP CALLDEMONS SUBR)
(JSP 6 SPECBIND)
(0 3 (SPECIAL CONTEXT) S)
(HRRZ@ 4 3)
(MOVEI 3 (QUOTE NIL))
(PUSH P 2)
(MOVE 2 1)
(EXCH 1 0 P)
(PUSH P (SPECIAL CONTEXT) S)
(CALL 4 (E SEARCH) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE RUNDAEMONS) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E CINTERRUPT) S)
(JRST 0 SPECSTR)
NIL
(DEFPROP RUNDAEMONS (((QUOTE PAT) (QUOTE CONTEXT) (QUOTE METS)) (ALLOW T) (: TLP) (COND (METS (INVOKE (NXTMET) P→
AT) (GO (QUOTE TLP))))) CEXPR)
(LAP NXTMET FSUBR)
(PUSH P 1)
(PUSH P (C 0 0 TAG1 0))
(MOVEI D (QUOTE METS) S)
(PUSH P D)
(MOVNI 6 1)
(JCALL 16 (E VLOC) S)
TAG1 (HRRZ@ 2 1)
(HLRZ@ 1 2)
(HRRZ@ 1 1)
(PUSH P 1)
(HLRZ@ 1 2)
(HLRZ@ 1 1)
(POP P 3)
(HRLM@ 3 2)
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP REVEAL SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL DATUM) S)
(0 0 (SPECIAL CMARKERS) S)
(0 0 (SPECIAL CFRAMES) S)
(0 0 (SPECIAL PATTERN) S)
(0 0 (SPECIAL CNUM) S)
(0 0 (SPECIAL NEW) S)
(0 0 (SPECIAL TYPE) S)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 (SPECIAL DATUM) S)
(CALL 1 (E ANALYZE) S)
(MOVEM 1 (SPECIAL CMARKERS) S)
(HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(MOVEM 1 (SPECIAL CFRAMES) S)
(HLRZ@ 1 -4 P)
(MOVE 2 (SPECIAL CMARKERS) S)
(MOVEM 1 -2 P)
(CALL 2 (E ADDCFRAME) S)
(HRRZ@ 2 -2 P)
(HLRZ@ 2 2)
(MOVEM 2 (SPECIAL CNUM) S)
(HRRZ@ 2 1)
(HLRZ@ 2 2)
(MOVEM 1 0 P)
(MOVEM 2 -1 P)
(HRRZ@ 1 0 P)
(MOVEI 2 (QUOTE +) S)
(HRLM@ 2 1)
(MOVE 1 -1 P)
(JUMPN 1 TAG3)
(MOVE 1 (SPECIAL PATTERN) S)
(JUMPE 1 TAG13)
(MOVE 1 (SPECIAL NEW) S)
(JUMPE 1 TAG15)
(HRRZ@ 1 (SPECIAL CMARKERS) S)
(HRRZ@ 1 1)
(JUMPE 1 TAG16)
(TDZA 1 1)
TAG16 (MOVEI 1 (QUOTE T) S)
TAG15
TAG13 (JUMPE 1 TAG11)
(MOVEI 2 (QUOTE *INDEX) S)
(MOVE 1 (SPECIAL TYPE) S)
(CALL 2 (E GET) S)
(MOVE 3 1)
(MOVE 2 (SPECIAL PATTERN) S)
(MOVE 1 (SPECIAL DATUM) S)
(CALL 3 (E INDEX) S)
TAG11 (HRRZ@ 1 (SPECIAL CMARKERS) S)
(HRRZ@ 1 1)
(MOVEM 1 (SPECIAL CMARKERS) S)
(HRRZ@ 1 (SPECIAL CFRAMES) S)
(MOVEM 1 (SPECIAL CFRAMES) S)
TAG1 (CALL 0 (E MFINTERSECT) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG23)
(MOVE 2 -4 P)
(CALL 1 (E CADR) S)
(CALL 2 (E INVISIBLE) S)
(MOVEM 1 -3 P)
(JUMPE 1 TAG25)
(MOVE 2 (SPECIAL CNUM) S)
(CALL 2 (E EQUAL) S)
(JUMPE 1 TAG27)
(CLEARM 0 (SPECIAL NEW) S)
(PUSH P 0 P)
(HRRZ@ 1 0 P)
(PUSH P 1)
(MOVEI 3 (QUOTE 1))
(HRRZ@ 2 -2 P)
(HLRZ@ 2 2)
(MOVE 1 (SPECIAL CNUM) S)
(CALL 3 (E DELETE) S)
(JUMPN 1 TAG30)
(MOVEI 1 (QUOTE +) S)
TAG30 (HRLM@ 1 0 P)
(SUB P (C 2 0 2 0))
TAG27 (JRST 0 TAG24)
TAG25 (MOVEI 1 (QUOTE T) S)
(MOVEM 1 -1 P)
TAG24 (HRRZ@ 1 (SPECIAL CMARKERS) S)
(MOVEM 1 (SPECIAL CMARKERS) S)
(HRRZ@ 1 (SPECIAL CFRAMES) S)
(MOVEM 1 (SPECIAL CFRAMES) S)
(JRST 0 TAG1)
TAG23 (MOVE 1 (SPECIAL NEW) S)
(JUMPE 1 TAG34)
(HRRZ@ 2 -2 P)
(HRRZ@ 2 2)
(MOVE 1 (SPECIAL DATUM) S)
(CALL 2 (E CONS) S)
(HRRZ@ 2 -2 P)
(HRRM@ 1 2)
TAG34 (MOVE 1 -1 P)
(JUMPE 1 TAG35)
(TDZA 1 1)
TAG35 (MOVEI 1 (QUOTE T) S)
(JRST 0 TAG2)
TAG3 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 5 0 5 0))
(JRST 0 SPECSTR)
NIL
(LAP HIDE SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL DATUM) S)
(0 0 (SPECIAL PATTERN) S)
(0 0 (SPECIAL CFRAMES) S)
(0 0 (SPECIAL CMARKERS) S)
(0 0 (SPECIAL CNUM) S)
(0 0 (SPECIAL TYPE) S)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(HRRZ@ 1 -6 P)
(MOVEM 1 -6 P)
(MOVEM 1 (SPECIAL CFRAMES) S)
(MOVE 1 (SPECIAL DATUM) S)
(CALL 1 (E ANALYZE) S)
(MOVEM 1 (SPECIAL CMARKERS) S)
(HLRZ@ 1 -6 P)
(CALL 1 (E CADR) S)
(MOVEM 1 (SPECIAL CNUM) S)
(HLRZ@ 1 (SPECIAL CFRAMES) S)
(HRRZ@ 2 (SPECIAL CMARKERS) S)
(MOVEM 1 -4 P)
(CALL 2 (E FINDCFRAME) S)
(MOVEM 1 -5 P)
(JUMPE 1 TAG11)
(HRRZ@ 1 -5 P)
(HLRZ@ 1 1)
(MOVEI 2 (QUOTE T) S)
(MOVEM 1 0 P)
(MOVEM 2 -3 P)
(HRRZ@ 1 -5 P)
(HRRZ@ 1 1)
(JUMPE 1 TAG16)
(HRRZ@ 1 -5 P)
(HRRZS@ 0 1)
(JRST 0 TAG15)
TAG16 (MOVEI 1 (QUOTE T) S)
(MOVEM 1 -2 P)
(JUMPE 1 TAG17)
(MOVEI 3 (QUOTE 1))
(MOVE 2 (SPECIAL CMARKERS) S)
(MOVE 1 -5 P)
(CALL 3 (E DELQ) S)
(MOVE 1 (SPECIAL PATTERN) S)
(JUMPE 1 TAG21)
(HRRZ@ 1 (SPECIAL CMARKERS) S)
(JUMPN 1 TAG23)
(MOVEI 2 (QUOTE *INDEX) S)
(MOVE 1 (SPECIAL TYPE) S)
(CALL 2 (E GET) S)
(MOVE 2 (SPECIAL TYPE) S)
(PUSH P 1)
(CAIE 2 (QUOTE ITEM) S)
(TDZA 4 4)
(MOVEI 4 (QUOTE T) S)
(MOVE 3 1)
(MOVE 2 (SPECIAL PATTERN) S)
(MOVE 1 (SPECIAL DATUM) S)
(CALL 4 (E UNINDEX) S)
(SUB P (C 1 0 1 0))
TAG23
TAG21
TAG17
TAG15
TAG11 (HRRZ@ 1 (SPECIAL CMARKERS) S)
(MOVEM 1 (SPECIAL CMARKERS) S)
TAG1 (CALL 0 (E MFINTERSECT) S)
(MOVEM 1 -5 P)
(JUMPE 1 TAG26)
(MOVE 2 -6 P)
(CALL 1 (E CADR) S)
(CALL 2 (E INVISIBLE) S)
(MOVEM 1 -1 P)
(JUMPE 1 TAG30)
(MOVE 1 -2 P)
(JUMPE 1 TAG32)
(MOVE 2 -1 P)
(MOVE 1 (SPECIAL CNUM) S)
(CALL 2 (E EQUAL) S)
(JUMPE 1 TAG33)
(TDZA 1 1)
TAG33 (MOVEI 1 (QUOTE T) S)
(MOVEM 1 -2 P)
(JRST 0 TAG31)
TAG32 (MOVE 1 -3 P)
(JUMPN 1 TAG34)
(MOVE 2 -1 P)
(MOVE 1 (SPECIAL CNUM) S)
(CALL 2 (E EQUAL) S)
(MOVEM 1 -3 P)
TAG34
TAG31 (JRST 0 TAG27)
TAG30 (CLEARM 0 -2 P)
(MOVEI 1 (QUOTE T) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG35)
(MOVE 2 (SPECIAL CNUM) S)
(MOVE 1 -5 P)
(CALL 2 (E CANCEL) S)
TAG35
TAG27 (HRRZ@ 1 (SPECIAL CMARKERS) S)
(MOVEM 1 (SPECIAL CMARKERS) S)
(HRRZ@ 1 (SPECIAL CFRAMES) S)
(MOVEM 1 (SPECIAL CFRAMES) S)
(JRST 0 TAG1)
TAG26 (MOVE 1 -2 P)
(JUMPE 1 TAG44)
(HRRZ@ 1 -4 P)
(MOVEI 3 (QUOTE 1))
(HRRZ@ 2 1)
(PUSH P 1)
(MOVE 1 (SPECIAL DATUM) S)
(CALL 3 (E DELQ) S)
(HRRM@ 1 0 P)
(SUB P (C 1 0 1 0))
(JRST 0 TAG25)
TAG44 (MOVE 1 0 P)
(JUMPE 1 TAG47)
(MOVE 1 -3 P)
(JUMPE 1 TAG50)
(TDZA 1 1)
TAG50 (MOVEI 1 (QUOTE T) S)
TAG47 (JUMPE 1 TAG45)
(HRRZ@ 2 -4 P)
(HRRZ@ 2 2)
(MOVE 1 (SPECIAL DATUM) S)
(CALL 2 (E CONS) S)
(HRRZ@ 2 -4 P)
(HRRM@ 1 2)
TAG45
TAG25 (MOVE 1 0 P)
(SUB P (C 7 0 7 0))
(JRST 0 SPECSTR)
NIL
(LAP ADDCFRAME SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL CMARKERS) S)
(PUSH P 1)
(CALL 1 (E CADR) S)
(PUSH P 1)
TAG1 (HRRZ@ 1 (SPECIAL CMARKERS) S)
(JUMPE 1 TAG10)
(TDZA 1 1)
TAG10 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG7)
(MOVE 2 0 P)
(HRRZ@ 1 (SPECIAL CMARKERS) S)
(CALL 1 (E CAAR) S)
(CALL 2 (E *LESS) S)
TAG7 (JUMPE 1 TAG6)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E NCONS) S)
(MOVE 2 0 P)
(CALL 2 (E XCONS) S)
(HRRZ@ 2 (SPECIAL CMARKERS) S)
(CALL 2 (E CONS) S)
(PUSH P (SPECIAL CMARKERS) S)
(HRRM@ 1 0 P)
(MOVEI 1 (QUOTE T) S)
(MOVEM 1 (SPECIAL NEW) S)
(SUB P (C 1 0 1 0))
(JRST 0 TAG5)
TAG6 (HRRZ@ 1 (SPECIAL CMARKERS) S)
(CALL 1 (E CAAR) S)
(CAME 1 0 P)
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG5)
(HRRZ@ 1 (SPECIAL CMARKERS) S)
(MOVEM 1 (SPECIAL CMARKERS) S)
(JRST 0 TAG1)
TAG5 (HRRZ@ 1 (SPECIAL CMARKERS) S)
(HLRZ@ 1 1)
(SUB P (C 2 0 2 0))
(JRST 0 SPECSTR)
NIL
(LAP FINDCFRAME SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL CMARKERS) S)
(PUSH P 1)
(CALL 1 (E CADR) S)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 (SPECIAL CMARKERS) S)
(JUMPE 1 TAG3)
(HLRZ@ 2 1)
(HLRZ@ 2 2)
(MOVEM 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E >) S)
(JUMPN 1 TAG3)
(MOVE 2 -1 P)
(MOVE 1 0 P)
(CALL 2 (E >) S)
(JUMPE 1 TAG7)
(HRRZ@ 1 (SPECIAL CMARKERS) S)
(MOVEM 1 (SPECIAL CMARKERS) S)
(JRST 0 TAG1)
TAG7 (HLRZ@ 1 (SPECIAL CMARKERS) S)
(JRST 0 TAG2)
TAG3 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 3 0 3 0))
(JRST 0 SPECSTR)
NIL
(LAP CANCEL SUBR)
(PUSH P 1)
(HRRZ@ 1 1)
(PUSH P 2)
(HLRZ@ 2 1)
(EXCH 1 0 P)
(CALL 2 (E MERGEN) S)
(HRLM@ 1 0 P)
(POP P 1)
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP MERGEN SUBR)
(PUSH P 1)
(PUSH P 2)
(MOVE 1 2)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG2)
(MOVE 1 -1 P)
(CALL 1 (E NCONS) S)
(JRST 0 TAG1)
TAG2 (HLRZ@ 2 2)
(MOVE 1 -1 P)
(CALL 2 (E >) S)
(JUMPE 1 TAG3)
(MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E CONS) S)
(JRST 0 TAG1)
TAG3 (HRRZ@ 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E MERGEN) S)
(HRRM@ 1 0 P)
(MOVE 1 0 P)
TAG1 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP MERGE SUBR)
(PUSH P 1)
(PUSH P 2)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG2)
(MOVE 1 2)
(JRST 0 TAG1)
TAG2 (MOVE 1 2)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG3)
(MOVE 1 -1 P)
(JRST 0 TAG1)
TAG3 (HLRZ@ 2 2)
(HLRZ@ 1 -1 P)
(CALL 2 (E >) S)
(JUMPE 1 TAG4)
(HLRZ@ 1 -1 P)
(MOVE 2 0 P)
(PUSH P 1)
(HRRZ@ 1 -2 P)
(CALL 2 (E MERGE) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(JRST 0 TAG1)
TAG4 (HLRZ@ 2 -1 P)
(HLRZ@ 1 0 P)
(CALL 2 (E >) S)
(JUMPE 1 TAG5)
(HLRZ@ 1 0 P)
(HRRZ@ 2 0 P)
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 2 (E MERGE) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(JRST 0 TAG1)
TAG5 (HLRZ@ 1 -1 P)
(HRRZ@ 2 0 P)
(PUSH P 1)
(HRRZ@ 1 -2 P)
(CALL 2 (E MERGE) S)
(POP P 2)
(CALL 2 (E XCONS) S)
TAG1 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP DPUTCF SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL DATUM) S)
(0 0 (SPECIAL PATTERN) S)
(0 0 (SPECIAL TYPE) S)
(0 0 (SPECIAL NEW) S)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 (SPECIAL DATUM) S)
(CALL 1 (E ANALYZE) S)
(MOVE 2 1)
(MOVEM 1 -1 P)
(MOVE 1 -2 P)
(CALL 2 (E ADDCFRAME) S)
(MOVEM 1 0 P)
(MOVE 1 (SPECIAL NEW) S)
(JUMPE 1 TAG10)
(HRRZ@ 2 -2 P)
(HRRZ@ 2 2)
(MOVE 1 (SPECIAL DATUM) S)
(CALL 2 (E CONS) S)
(HRRZ@ 2 -2 P)
(HRRM@ 1 2)
(MOVE 1 (SPECIAL PATTERN) S)
(JUMPE 1 TAG12)
(HRRZ@ 1 -1 P)
(HRRZ@ 1 1)
(JUMPN 1 TAG14)
(MOVEI 2 (QUOTE *INDEX) S)
(MOVE 1 (SPECIAL TYPE) S)
(CALL 2 (E GET) S)
(MOVE 3 1)
(MOVE 2 (SPECIAL PATTERN) S)
(MOVE 1 (SPECIAL DATUM) S)
(CALL 3 (E INDEX) S)
TAG14
TAG12
TAG10 (MOVE 3 -3 P)
(MOVE 2 -4 P)
(MOVE 1 0 P)
(SUB P (C 5 0 5 0))
(CALL 3 (E DPUT1) S)
(JRST 0 SPECSTR)
NIL
(LAP DGETCF SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL DATUM) S)
(PUSH P 2)
(PUSH P 3)
(CALL 1 (E CMARKERS) S)
(HRRZ@ 2 1)
(POP P 1)
(CALL 2 (E FINDCFRAME) S)
(MOVE 2 1)
(POP P 1)
(CALL 2 (E ASSOC) S)
(JRST 0 SPECSTR)
NIL
(LAP DREMCF SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL DATUM) S)
(0 0 (SPECIAL CMARKERS) S)
(0 0 (SPECIAL PATTERN) S)
(0 0 (SPECIAL TYPE) S)
(PUSH P 2)
(PUSH P 3)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 (SPECIAL DATUM) S)
(CALL 1 (E ANALYZE) S)
(MOVEM 1 (SPECIAL CMARKERS) S)
(HRRZ@ 2 1)
(MOVE 1 -2 P)
(CALL 2 (E FINDCFRAME) S)
(MOVEM 1 0 P)
(MOVE 1 0 P)
(JUMPE 1 TAG12)
(HRRZ@ 2 1)
(HRRZ@ 2 2)
(MOVE 1 -3 P)
(CALL 2 (E ASSOC) S)
(MOVEM 1 -1 P)
TAG12 (JUMPE 1 TAG10)
(MOVEI 3 (QUOTE 1))
(HRRZ@ 2 0 P)
(MOVE 1 -1 P)
(CALL 3 (E DELQ) S)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(JUMPN 1 TAG16)
(HRRZ@ 1 0 P)
(HRRZ@ 1 1)
TAG16 (JUMPN 1 TAG14)
(MOVEI 3 (QUOTE 1))
(MOVE 2 (SPECIAL CMARKERS) S)
(MOVE 1 0 P)
(CALL 3 (E DELQ) S)
(MOVEI 3 (QUOTE 1))
(MOVE 2 -2 P)
(MOVE 1 (SPECIAL DATUM) S)
(CALL 3 (E DELQ) S)
TAG14 (MOVE 1 (SPECIAL PATTERN) S)
(JUMPE 1 TAG22)
(HRRZ@ 1 (SPECIAL CMARKERS) S)
(JUMPE 1 TAG23)
(TDZA 1 1)
TAG23 (MOVEI 1 (QUOTE T) S)
TAG22 (JUMPE 1 TAG20)
(MOVEI 2 (QUOTE *INDEX) S)
(MOVE 1 (SPECIAL TYPE) S)
(CALL 2 (E GET) S)
(MOVE 2 (SPECIAL TYPE) S)
(PUSH P 1)
(CAIE 2 (QUOTE ITEM) S)
(TDZA 4 4)
(MOVEI 4 (QUOTE T) S)
(MOVE 3 1)
(MOVE 2 (SPECIAL PATTERN) S)
(MOVE 1 (SPECIAL DATUM) S)
(CALL 4 (E UNINDEX) S)
(SUB P (C 1 0 1 0))
TAG20 (MOVE 1 -1 P)
(JRST 0 TAG1)
TAG10 (MOVEI 1 (QUOTE NIL))
TAG1 (SUB P (C 4 0 4 0))
(JRST 0 SPECSTR)
NIL
(LAP DPUT LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
(MOVE 2 -2 P)
(HRRZ 2 2 2)
(MOVE 3 -2 P)
(HRRZ 3 3 3)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(MOVE 2 -3 P)
(MOVEI 1 (QUOTE 3))
(CALL 2 (E GETCONTEXT) S)
(MOVE 4 1)
(JUMPN 4 TAG1)
(MOVE 4 -3 P)
(ADD 4 -5 P)
(HRRZ 4 -577777 4)
TAG1 (HRRZ@ 4 4)
(HLRZ@ 4 4)
(POP P 3)
(POP P 2)
(POP P 1)
(SUB P (C 1 0 1 0))
(JCALL 4 (E DPUTCF) S)
NIL
(LAP DGET LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVE 2 1)
(MOVEI 1 (QUOTE 2))
(CALL 2 (E GETCONTEXT) S)
(JUMPN 1 TAG1)
(MOVE 1 0 P)
(ADD 1 -2 P)
(HRRZ 1 -577777 1)
TAG1 (JSP 6 SPECBIND)
(0 1 (SPECIAL CONTEXT) S)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
(CALL 1 (E CMARKERS) S)
(MOVE 2 -2 P)
(HRRZ 2 2 2)
(MOVEI 4 (QUOTE NIL))
(HRRZ@ 3 (SPECIAL CONTEXT) S)
(HRRZ@ 1 1)
(CALL 4 (E DGET1) S)
(SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(LAP DREM LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
(MOVE 2 -2 P)
(HRRZ 2 2 2)
(PUSH P 1)
(PUSH P 2)
(MOVE 2 -2 P)
(MOVEI 1 (QUOTE 2))
(CALL 2 (E GETCONTEXT) S)
(MOVE 3 1)
(JUMPN 3 TAG1)
(MOVE 3 -2 P)
(ADD 3 -4 P)
(HRRZ 3 -577777 3)
TAG1 (MOVEI 4 (QUOTE NIL))
(HRRZ@ 3 3)
(POP P 2)
(POP P 1)
(SUB P (C 1 0 1 0))
(JCALL 4 (E DREM1) S)
NIL
(LAP DPUT+ LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
(PUSH P 1)
(MOVE 2 -1 P)
(MOVEI 1 (QUOTE 3))
(CALL 2 (E GETCONTEXT) S)
(MOVE 2 1)
(JUMPN 2 TAG1)
(MOVE 2 -1 P)
(ADD 2 -3 P)
(HRRZ 2 -577777 2)
TAG1 (POP P 1)
(CALL 2 (E REALITY) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG3)
(MOVE 2 -2 P)
(HRRZ 2 2 2)
(MOVE 3 -2 P)
(HRRZ 3 3 3)
(CALL 3 (E DPUT1) S)
(JRST 0 TAG2)
TAG3 (MOVEI 1 (QUOTE (ABSENT DATUM)) S)
(CALL 17 (E CERR) S)
TAG2 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP DGET+ LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
(CALL 1 (E CMARKERS) S)
(MOVE 2 -2 P)
(HRRZ 2 2 2)
(HRRZ@ 1 1)
(PUSH P 1)
(PUSH P 2)
(MOVE 2 -2 P)
(MOVEI 1 (QUOTE 2))
(CALL 2 (E GETCONTEXT) S)
(MOVE 3 1)
(JUMPN 3 TAG1)
(MOVE 3 -2 P)
(ADD 3 -4 P)
(HRRZ 3 -577777 3)
TAG1 (MOVEI 4 (QUOTE T) S)
(HRRZ@ 3 3)
(POP P 2)
(POP P 1)
(SUB P (C 1 0 1 0))
(JCALL 4 (E DGET1) S)
NIL
(LAP DREM+ LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
(MOVE 2 -2 P)
(HRRZ 2 2 2)
(PUSH P 1)
(PUSH P 2)
(MOVE 2 -2 P)
(MOVEI 1 (QUOTE 2))
(CALL 2 (E GETCONTEXT) S)
(MOVE 3 1)
(JUMPN 3 TAG1)
(MOVE 3 -2 P)
(ADD 3 -4 P)
(HRRZ 3 -577777 3)
TAG1 (MOVEI 4 (QUOTE T) S)
(HRRZ@ 3 3)
(POP P 2)
(POP P 1)
(SUB P (C 1 0 1 0))
(JCALL 4 (E DREM1) S)
NIL
(LAP DPUT1 SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(HRRZ@ 2 1)
(HRRZ@ 2 2)
(MOVE 1 3)
(CALL 2 (E ASSOC) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG5)
(HRRZ@ 1 1)
(JUMPN 1 TAG6)
(CALL 1 (E NCONS) S)
(HRRZ@ 2 0 P)
(HRRM@ 1 2)
(JUMPN 2 TAG6)
TAG6 (HRRZ@ 1 0 P)
(MOVE 2 -2 P)
(HRLM@ 2 1)
(JRST 0 TAG4)
TAG5 (MOVE 1 -2 P)
(CALL 1 (E NCONS) S)
(MOVE 2 -1 P)
(CALL 2 (E XCONS) S)
(HRRZ@ 2 -3 P)
(HRRZ@ 2 2)
(MOVEM 1 0 P)
(CALL 2 (E CONS) S)
(PUSH P 1)
(HRRZ@ 1 -4 P)
(POP P 2)
(HRRM@ 2 1)
TAG4 (MOVE 1 0 P)
(SUB P (C 4 0 4 0))
(POPJ P)
NIL
(LAP DGET1 SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL CMARKERS) S)
(0 3 (SPECIAL CFRAMES) S)
(PUSH P 2)
(PUSH P 4)
(PUSH P 3)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (CALL 0 (E MFINTERSECT) S)
(MOVEM 1 -1 P)
(JUMPE 1 TAG3)
(MOVE 1 -3 P)
(JUMPE 1 TAG10)
(MOVE 2 -2 P)
(HRRZ@ 1 -1 P)
(HLRZ@ 1 1)
(CALL 2 (E INVISIBLE) S)
TAG10 (JUMPN 1 TAG5)
(HRRZ@ 2 -1 P)
(HRRZ@ 2 2)
(MOVE 1 -4 P)
(CALL 2 (E ASSOC) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG11)
(JRST 0 TAG2)
TAG11
TAG5 (HRRZ@ 1 (SPECIAL CMARKERS) S)
(MOVEM 1 (SPECIAL CMARKERS) S)
(HRRZ@ 1 (SPECIAL CFRAMES) S)
(MOVEM 1 (SPECIAL CFRAMES) S)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 5 0 5 0))
(JRST 0 SPECSTR)
NIL
(LAP DREM1 SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL DATUM) S)
(0 3 (SPECIAL CFRAMES) S)
(0 0 (SPECIAL CMARKERS) S)
(0 0 (SPECIAL PATTERN) S)
(0 0 (SPECIAL TYPE) S)
(PUSH P 2)
(PUSH P 4)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 (SPECIAL CFRAMES) S)
(MOVEM 1 -3 P)
(MOVE 1 (SPECIAL DATUM) S)
(CALL 1 (E ANALYZE) S)
(HRRZ@ 2 1)
(MOVEM 2 (SPECIAL CMARKERS) S)
(MOVEM 1 -1 P)
TAG1 (CALL 0 (E MFINTERSECT) S)
(MOVEM 1 -2 P)
(JUMPE 1 TAG3)
(MOVE 1 -4 P)
(JUMPE 1 TAG13)
(MOVE 2 -3 P)
(HRRZ@ 1 -2 P)
(HLRZ@ 1 1)
(CALL 2 (E INVISIBLE) S)
TAG13 (JUMPN 1 TAG10)
(HRRZ@ 2 -2 P)
(HRRZ@ 2 2)
(MOVE 1 -5 P)
(CALL 2 (E ASSOC) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG14)
(MOVEI 3 (QUOTE NIL))
(HRRZ@ 2 -2 P)
(CALL 3 (E DELQ) S)
(HRRZ@ 1 -2 P)
(HLRZ@ 1 1)
(JUMPN 1 TAG20)
(HRRZ@ 1 -2 P)
(HRRZ@ 1 1)
TAG20 (JUMPN 1 TAG16)
(MOVEI 3 (QUOTE NIL))
(MOVE 2 -1 P)
(MOVE 1 -2 P)
(CALL 3 (E DELQ) S)
(MOVEI 3 (QUOTE NIL))
(HLRZ@ 2 (SPECIAL CFRAMES) S)
(MOVE 1 (SPECIAL DATUM) S)
(CALL 3 (E DELQ) S)
TAG16 (MOVE 1 (SPECIAL PATTERN) S)
(JUMPE 1 TAG24)
(HRRZ@ 1 -1 P)
(JUMPE 1 TAG25)
(TDZA 1 1)
TAG25 (MOVEI 1 (QUOTE T) S)
TAG24 (JUMPE 1 TAG22)
(MOVEI 2 (QUOTE *INDEX) S)
(MOVE 1 (SPECIAL TYPE) S)
(CALL 2 (E GET) S)
(MOVE 2 (SPECIAL TYPE) S)
(PUSH P 1)
(CAIE 2 (QUOTE ITEM) S)
(TDZA 4 4)
(MOVEI 4 (QUOTE T) S)
(MOVE 3 1)
(MOVE 2 (SPECIAL PATTERN) S)
(MOVE 1 (SPECIAL DATUM) S)
(CALL 4 (E UNINDEX) S)
(SUB P (C 1 0 1 0))
TAG22 (MOVE 1 0 P)
(JRST 0 TAG2)
TAG14
TAG10 (HRRZ@ 1 (SPECIAL CMARKERS) S)
(MOVEM 1 (SPECIAL CMARKERS) S)
(HRRZ@ 1 (SPECIAL CFRAMES) S)
(MOVEM 1 (SPECIAL CFRAMES) S)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 6 0 6 0))
(JRST 0 SPECSTR)
NIL
(LAP MENTIONERS LSUBR)
(JSP 3 *LCALL)
(JSP 6 SPECBIND)
(0 0 (SPECIAL CFRAMES) S)
(0 0 (SPECIAL CMARKERS) S)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 2 (QUOTE 1))
(CALL 2 (E <) S)
(JUMPE 1 TAG6)
(CALL 0 (E TFA) S)
TAG6 (MOVEI 2 (QUOTE 3))
(MOVE 1 -4 P)
(CALL 2 (E <) S)
(JUMPE 1 TAG13)
(MOVEI 1 (QUOTE (CONTEXT)) S)
(CALL 17 (E /,) S)
(JRST 0 TAG12)
TAG13 (MOVEI 2 (QUOTE 3))
(MOVE 1 -4 P)
(CALL 2 (E =) S)
(JUMPE 1 TAG14)
(MOVE 1 -6 P)
(HRRZ 1 3 1)
(JRST 0 TAG12)
TAG14 (CALL 0 (E TMA) S)
TAG12 (HRRZ@ 1 1)
(MOVEM 1 (SPECIAL CFRAMES) S)
(MOVEI 2 (QUOTE 1))
(MOVE 1 -4 P)
(CALL 2 (E >) S)
(JUMPE 1 TAG16)
(MOVE 1 -6 P)
(HRRZ 1 2 1)
TAG16 (MOVEM 1 -1 P)
(MOVE 1 -6 P)
(HRRZ 1 1 1)
(CALL 1 (E CMARKERS) S)
(HRRZ@ 2 1)
(MOVEM 2 (SPECIAL CMARKERS) S)
(MOVE 1 (SPECIAL CFRAMES) S)
(MOVEM 1 -3 P)
TAG1 (CALL 0 (E MFINTERSECT) S)
(MOVEM 1 -2 P)
(JUMPE 1 TAG20)
(MOVE 1 -1 P)
(JUMPE 1 TAG23)
(MOVE 2 -3 P)
(HRRZ@ 1 -2 P)
(HLRZ@ 1 1)
(CALL 2 (E INVISIBLE) S)
TAG23 (JUMPN 1 TAG21)
(MOVE 2 0 P)
(HLRZ@ 1 (SPECIAL CFRAMES) S)
(CALL 2 (E CONS) S)
(MOVEM 1 0 P)
TAG21 (HRRZ@ 1 (SPECIAL CFRAMES) S)
(MOVEM 1 (SPECIAL CFRAMES) S)
(HRRZ@ 1 (SPECIAL CMARKERS) S)
(MOVEM 1 (SPECIAL CMARKERS) S)
(JRST 0 TAG1)
TAG20 (MOVE 1 0 P)
(CALL 1 (E REVERSE) S)
(SUB P (C 5 0 5 0))
(JRST 0 SPECSTR)
NIL
(LAP C-MARKER SUBR)
(PUSH P 2)
(CALL 1 (E CMARKERS) S)
(HRRZ@ 2 1)
(POP P 1)
(JCALL 2 (E FINDCFRAME) S)
NIL
(LAP MFINTERSECT SUBR)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 (SPECIAL CMARKERS) S)
(JUMPE 1 TAG11)
(MOVE 1 (SPECIAL CFRAMES) S)
TAG11 (JUMPE 1 TAG7)
(HLRZ@ 1 (SPECIAL CFRAMES) S)
(CALL 1 (E CADR) S)
(HLRZ@ 2 (SPECIAL CMARKERS) S)
(HLRZ@ 3 2)
(MOVEM 1 -1 P)
(MOVEM 2 -2 P)
(MOVEM 3 0 P)
(JRST 0 TAG6)
TAG7 (JRST 0 TAG4)
TAG6
TAG2 (MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E >) S)
(JUMPE 1 TAG16)
(HRRZ@ 1 (SPECIAL CFRAMES) S)
(MOVEM 1 (SPECIAL CFRAMES) S)
(JUMPN 1 TAG17)
(JRST 0 TAG4)
TAG17 (HLRZ@ 1 (SPECIAL CFRAMES) S)
(CALL 1 (E CADR) S)
(MOVEM 1 -1 P)
(JRST 0 TAG2)
TAG16 (MOVE 2 -1 P)
(MOVE 1 0 P)
(CALL 2 (E >) S)
(JUMPE 1 TAG20)
(HRRZ@ 1 (SPECIAL CMARKERS) S)
(MOVEM 1 (SPECIAL CMARKERS) S)
(JUMPN 1 TAG21)
(JRST 0 TAG4)
TAG21 (HLRZ@ 1 (SPECIAL CMARKERS) S)
(HLRZ@ 2 1)
(MOVEM 1 -2 P)
(MOVEM 2 0 P)
(JRST 0 TAG2)
TAG20 (MOVE 1 -2 P)
(JRST 0 TAG3)
TAG4 (MOVEI 1 (QUOTE NIL))
TAG3 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP INVISIBLE SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL CFRAMES) S)
(PUSH P 1)
(CAIN 1 (QUOTE +) S)
(JRST 0 TAG4)
(JUMPE 1 TAG7)
(TDZA 1 1)
TAG7 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG6)
(HLRZ@ 1 0 P)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 (SPECIAL CFRAMES) S)
(JUMPE 1 TAG14)
(HLRZ@ 1 (SPECIAL CFRAMES) S)
(CALL 1 (E CADR) S)
(HRRZ@ 2 (SPECIAL CFRAMES) S)
(MOVEM 2 (SPECIAL CFRAMES) S)
(MOVEM 1 0 P)
(JRST 0 TAG13)
TAG14 (JRST 0 TAG11)
TAG13
TAG2 (MOVE 2 -1 P)
(MOVE 1 0 P)
(CALL 2 (E >) S)
(JUMPN 1 TAG1)
(MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E >) S)
(JUMPE 1 TAG21)
(HRRZ@ 1 -2 P)
(MOVEM 1 -2 P)
(JUMPN 1 TAG22)
(JRST 0 TAG11)
TAG22 (HLRZ@ 1 -2 P)
(MOVEM 1 -1 P)
(JRST 0 TAG2)
TAG21 (MOVE 1 -1 P)
(JRST 0 TAG10)
TAG11 (MOVEI 1 (QUOTE NIL))
TAG10 (SUB P (C 2 0 2 0))
TAG6 (JRST 0 TAG3)
TAG4 (MOVEI 1 (QUOTE NIL))
TAG3 (SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(LAP GETCONTEXT SUBR)
(PUSH P 1)
(PUSH P 2)
(EXCH 2 1)
(CALL 2 (E <) S)
(JUMPE 1 TAG2)
(CALL 0 (E TFA) S)
(JRST 0 TAG1)
TAG2 (MOVE 2 -1 P)
(MOVE 1 0 P)
(CALL 2 (E =) S)
(JUMPE 1 TAG3)
(MOVEI 1 (QUOTE (CONTEXT)) S)
(CALL 17 (E /,) S)
(JRST 0 TAG1)
TAG3 (MOVE 1 -1 P)
(CALL 1 (E ADD1) S)
(MOVE 2 1)
(MOVEM 1 -1 P)
(MOVE 1 0 P)
(CALL 2 (E =) S)
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG1)
TAG4 (CALL 0 (E TMA) S)
TAG1 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP ISEARCH SUBR)
(CALL 3 (E ISEARCH1) S)
(HRRZ@ 2 1)
(MOVEI 1 (QUOTE APPEND) S)
(JCALL 2 (E APPLY#) S)
NIL
(LAP ISEARCH1 SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(JUMPN 1 TAG5)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E NCONS) S)
(JRST 0 TAG1)
TAG5 (HLRZ@ 1 1)
(CAIE 1 (QUOTE *LIST) S)
(JRST 0 TAG7)
(HRRZ@ 1 -4 P)
(CALL 1 (E CDDR) S)
(CALL 1 (E NCONS) S)
(HRRZ@ 2 -4 P)
(HRRZ@ 2 2)
(HLRZ@ 2 2)
(CALL 2 (E XCONS) S)
(JRST 0 TAG1)
TAG7 (HLRZ@ 1 -4 P)
(CAIE 1 (QUOTE *INDEX) S)
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG4)
(MOVEI 5 (QUOTE NIL))
(MOVEI 4 (QUOTE NIL))
(MOVEI 3 (QUOTE BAD-STRUCTURE-INDEX--ISEARCH) S)
(MOVEI 2 (QUOTE T) S)
(MOVEI 1 (QUOTE NIL))
(CALL 5 (E BREAK1) S)
TAG4 (MOVE 3 -2 P)
(HLRZ@ 2 -3 P)
(HRRZ@ 1 -4 P)
(CALL 1 (E CADR) S)
(CALL 3 (E ASEARCH) S)
(HLRZ@ 2 1)
(MOVEM 1 0 P)
(CAIE 2 (QUOTE 0))
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG14)
(HRRZ@ 1 -3 P)
(JUMPE 1 TAG15)
(TDZA 1 1)
TAG15 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG14)
(MOVE 3 -2 P)
(HRRZ@ 2 -3 P)
(HRRZ@ 1 -4 P)
(CALL 1 (E CDDR) S)
(CALL 3 (E ASEARCH) S)
(HLRZ@ 2 0 P)
(MOVEM 1 -1 P)
(HLRZ@ 1 1)
(CALL 2 (E >) S)
TAG14 (JUMPE 1 TAG13)
(MOVE 1 0 P)
(JRST 0 TAG12)
TAG13 (MOVE 1 -1 P)
TAG12
TAG1 (SUB P (C 5 0 5 0))
(POPJ P)
NIL
(LAP ASEARCH SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 2)
(CALL 1 (E ATOMIZE) S)
(MOVEM 1 0 P)
(CAIE 1 (QUOTE *VARIABLE) S)
(JRST 0 TAG5)
(MOVEI 1 (QUOTE 10000))
(CALL 1 (E NCONS) S)
(JRST 0 TAG1)
TAG5 (MOVE 1 0 P)
(CAIE 1 (QUOTE *STRUCTURE) S)
(JRST 0 TAG7)
(MOVE 3 -4 P)
(MOVE 2 -5 P)
(HLRZ@ 1 -6 P)
(CALL 3 (E ISEARCH1) S)
(JRST 0 TAG6)
TAG7 (HRRZ@ 2 -6 P)
(CALL 2 (E ASSQ1) S)
(MOVEM 1 -1 P)
(JUMPE 1 TAG10)
(CALL 1 (E CDDR) S)
(CALL 1 (E NCONS) S)
(HRRZ@ 2 -1 P)
(HLRZ@ 2 2)
(CALL 2 (E XCONS) S)
(JRST 0 TAG6)
TAG10 (MOVEI 1 (QUOTE 0))
(CALL 1 (E NCONS) S)
TAG6 (MOVEM 1 -2 P)
(MOVE 1 -4 P)
(JUMPN 1 TAG14)
(HRRZ@ 2 -6 P)
(MOVEI 1 (QUOTE *VARIABLE) S)
(CALL 2 (E ASSOC) S)
(MOVEM 1 -1 P)
(JUMPE 1 TAG17)
(CALL 1 (E CDDR) S)
(MOVEM 1 -3 P)
TAG17 (JRST 0 TAG13)
TAG14 (MOVEI 1 (QUOTE NIL))
TAG13 (JUMPE 1 TAG12)
(HRRZ@ 2 -1 P)
(HLRZ@ 2 2)
(HLRZ@ 1 -2 P)
(CALL 2 (E +) S)
(HRLM@ 1 -2 P)
(HRRZ@ 2 -2 P)
(MOVE 1 -3 P)
(CALL 2 (E CONS) S)
(HRRM@ 1 -2 P)
TAG12 (MOVE 1 -2 P)
TAG1 (SUB P (C 7 0 7 0))
(POPJ P)
NIL
(LAP ASSQ1 SUBR)
(PUSH P 1)
(PUSH P 2)
(CALL 1 (E NUMBERP) S)
(JUMPE 1 TAG2)
(MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E ASSOC#) S)
(JRST 0 TAG1)
TAG2 (MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E ASSOC) S)
TAG1 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP INDEX SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL THING) S)
(0 3 (SPECIAL INDEX) S)
(0 0 (SPECIAL PFORM) S)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(JUMPN 3 TAG5)
(MOVEI 5 (QUOTE NIL))
(MOVEI 4 (QUOTE NIL))
(MOVEI 3 (QUOTE BAD-INDEX--INDEX) S)
(MOVEI 2 (QUOTE T) S)
(MOVEI 1 (QUOTE NIL))
(CALL 5 (E BREAK1) S)
(JRST 0 TAG4)
TAG5 (HLRZ@ 1 3)
(CAIE 1 (QUOTE *LIST) S)
(JRST 0 TAG7)
(HRRZ@ 1 3)
(CALL 1 (E CADR) S)
(CALL 1 (E ADD1) S)
(MOVE 2 (SPECIAL *INDEXTHRESHOLD) S)
(MOVEM 1 0 P)
(CALL 2 (E EQUAL) S)
(JUMPE 1 TAG11)
(PUSH P (SPECIAL INDEX) S)
(MOVEI 1 (QUOTE *INDEX) S)
(HRLM@ 1 0 P)
(HRRZ@ 1 (SPECIAL INDEX) S)
(CALL 1 (E CDDR) S)
(HRRZ@ 2 (SPECIAL INDEX) S)
(HLRZ@ 2 2)
(MOVEM 2 (SPECIAL PFORM) S)
(MOVEM 1 -2 P)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E NCONS) S)
(MOVEM 1 0 P)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(HRRZ@ 2 (SPECIAL INDEX) S)
(HRRM@ 1 2)
(MOVEI 1 (QUOTE (LAMBDA (THING) (INDEX THING (/@ . PFORM) INDEX))) S)
(CALL 17 (E !") S)
(MOVE 2 -1 P)
(PUSHJ P *MAPC)
(JRST 0 TAG10)
TAG11 (HRRZ@ 2 (SPECIAL INDEX) S)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(MOVE 1 (SPECIAL THING) S)
(CALL 2 (E CONS) S)
(MOVE 2 0 P)
(CALL 2 (E XCONS) S)
(HRRZ@ 2 (SPECIAL INDEX) S)
(HRRM@ 1 2)
(MOVE 1 (SPECIAL THING) S)
(JRST 0 TAG1)
TAG10 (JRST 0 TAG4)
TAG7 (HLRZ@ 1 3)
(CAIE 1 (QUOTE *INDEX) S)
(JRST 0 TAG17)
(HRRZ@ 1 3)
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL PFORM) S)
(JRST 0 TAG4)
TAG17 (MOVEI 5 (QUOTE NIL))
(MOVEI 4 (QUOTE NIL))
(MOVEI 3 (QUOTE BAD-INDEX--INDEX) S)
(MOVEI 2 (QUOTE T) S)
(MOVEI 1 (QUOTE NIL))
(CALL 5 (E BREAK1) S)
TAG4 (MOVE 5 (SPECIAL PFORM) S)
(MOVEI 4 (QUOTE CAR) S)
(HRRZ@ 3 (SPECIAL INDEX) S)
(HRRZ@ 3 3)
(HLRZ@ 3 3)
(HLRZ@ 2 -2 P)
(MOVE 1 (SPECIAL THING) S)
(CALL 5 (E INDEX1) S)
(HRRZ@ 1 -2 P)
(JUMPE 1 TAG21)
(MOVE 5 (SPECIAL PFORM) S)
(MOVEI 4 (QUOTE CDR) S)
(HRRZ@ 3 (SPECIAL INDEX) S)
(HRRZ@ 3 3)
(HRRZ@ 3 3)
(HRRZ@ 2 -2 P)
(MOVE 1 (SPECIAL THING) S)
(CALL 5 (E INDEX1) S)
TAG21 (MOVE 1 (SPECIAL THING) S)
TAG1 (SUB P (C 3 0 3 0))
(JRST 0 SPECSTR)
NIL
(LAP UNINDEX SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL THING) S)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(JUMPN 3 TAG2)
(MOVEI 5 (QUOTE NIL))
(MOVEI 4 (QUOTE NIL))
(MOVEI 3 (QUOTE BAD-INDEX--UNINDEX) S)
(MOVEI 2 (QUOTE T) S)
(MOVEI 1 (QUOTE NIL))
(CALL 5 (E BREAK1) S)
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 3)
(CAIE 1 (QUOTE *LIST) S)
(JRST 0 TAG4)
(HRRZ@ 1 3)
(PUSH P 1)
(CALL 1 (E CADR) S)
(CALL 1 (E SUB1) S)
(MOVE 3 -1 P)
(HRRZ@ 2 -2 P)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(PUSH P 1)
(MOVE 1 (SPECIAL THING) S)
(CALL 3 (E DELTHING) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(HRRM@ 1 0 P)
(MOVE 1 (SPECIAL THING) S)
(SUB P (C 1 0 1 0))
(JRST 0 TAG1)
TAG4 (HLRZ@ 1 3)
(CAIE 1 (QUOTE *INDEX) S)
(JRST 0 TAG5)
(HRRZ@ 3 3)
(HRRZ@ 3 3)
(HLRZ@ 3 3)
(HLRZ@ 2 2)
(MOVE 1 (SPECIAL THING) S)
(CALL 4 (E UNINDEX1) S)
(HRRZ@ 1 -2 P)
(JUMPE 1 TAG7)
(MOVE 4 0 P)
(HRRZ@ 3 -1 P)
(HRRZ@ 3 3)
(HRRZ@ 3 3)
(HRRZ@ 2 -2 P)
(MOVE 1 (SPECIAL THING) S)
(CALL 4 (E UNINDEX1) S)
TAG7 (MOVE 1 (SPECIAL THING) S)
(JRST 0 TAG1)
TAG5 (MOVEI 5 (QUOTE NIL))
(MOVEI 4 (QUOTE NIL))
(MOVEI 3 (QUOTE BAD-INDEX--UNINDEX) S)
(MOVEI 2 (QUOTE T) S)
(MOVEI 1 (QUOTE NIL))
(CALL 5 (E BREAK1) S)
TAG1 (SUB P (C 3 0 3 0))
(JRST 0 SPECSTR)
NIL
(LAP INDEX1 SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(PUSH P 5)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 1 2)
(CALL 1 (E ATOMIZE) S)
(MOVEM 1 0 P)
(CAIE 1 (QUOTE *STRUCTURE) S)
(JRST 0 TAG5)
(HLRZ@ 1 -4 P)
(JUMPN 1 TAG7)
(MOVE 1 -2 P)
(CALL 1 (E NCONS) S)
(MOVE 2 -3 P)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(MOVEI 1 (QUOTE 0))
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(MOVEI 2 (QUOTE *LIST) S)
(CALL 2 (E XCONS) S)
(HRLM@ 1 -4 P)
TAG7 (HLRZ@ 3 -4 P)
(MOVE 2 -5 P)
(MOVE 1 -6 P)
(CALL 3 (E INDEX) S)
(JRST 0 TAG4)
TAG5 (HRRZ@ 2 -4 P)
(CALL 2 (E ASSQ1) S)
(MOVEM 1 -1 P)
(JUMPE 1 TAG11)
(CALL 1 (E CADR) S)
(CALL 1 (E ADD1) S)
(HRRZ@ 2 -1 P)
(HRRZ@ 2 2)
(PUSH P 1)
(MOVE 1 -7 P)
(CALL 2 (E CONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(HRRM@ 1 -1 P)
(JRST 0 TAG4)
TAG11 (MOVE 1 -6 P)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE 1))
(CALL 2 (E XCONS) S)
(MOVE 2 0 P)
(CALL 2 (E XCONS) S)
(HRRZ@ 2 -4 P)
(CALL 2 (E CONS) S)
(HRRM@ 1 -4 P)
TAG4 (MOVEI 1 (QUOTE NIL))
(SUB P (C 7 0 7 0))
(POPJ P)
NIL
(LAP UNINDEX1 SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(MOVE 1 2)
(CALL 1 (E ATOMIZE) S)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CAIE 1 (QUOTE *STRUCTURE) S)
(JRST 0 TAG5)
(MOVE 4 -3 P)
(HLRZ@ 3 -4 P)
(MOVE 2 -5 P)
(MOVE 1 -6 P)
(CALL 4 (E UNINDEX) S)
(JRST 0 TAG4)
TAG5 (HRRZ@ 2 -4 P)
(CALL 2 (E ASSQ1) S)
(MOVEM 1 0 P)
(JUMPE 1 TAG6)
(CALL 1 (E CADR) S)
(CALL 1 (E SUB1) S)
(MOVEM 1 -1 P)
(CAIE 1 (QUOTE 0))
(JRST 0 TAG10)
(MOVEI 3 (QUOTE NIL))
(MOVE 2 -4 P)
(MOVE 1 0 P)
(CALL 3 (E DELQ) S)
(JRST 0 TAG7)
TAG10 (MOVE 3 -3 P)
(HRRZ@ 2 0 P)
(HRRZ@ 2 2)
(MOVE 1 -6 P)
(CALL 3 (E DELTHING) S)
(MOVE 2 -1 P)
(CALL 2 (E XCONS) S)
(HRRM@ 1 0 P)
TAG7
TAG6
TAG4 (MOVEI 1 (QUOTE NIL))
(SUB P (C 7 0 7 0))
(POPJ P)
NIL
(LAP ANALYZE SUBR)
(PUSH P 1)
(JUMPN 1 TAG2)
(MOVEI 1 (QUOTE (MEANINGLESS DATUM -- ANALYZE)) S)
(CALL 17 (E CERR) S)
(JRST 0 TAG1)
TAG2 (CALL 1 (E ATOM) S)
(JUMPE 1 TAG4)
(MOVEI 2 (QUOTE DATUM) S)
(MOVE 1 0 P)
(CALL 2 (E GET) S)
(CALL 1 (E ANALYZE) S)
(JRST 0 TAG1)
TAG4 (HLRZ@ 1 0 P)
(CAIE 1 (QUOTE *CLOSURE) S)
(JRST 0 TAG5)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CALL 1 (E ANALYZE) S)
(MOVE 1 0 P)
(MOVEM 1 (SPECIAL DATUM) S)
(HRRZ@ 1 0 P)
(HRRZ@ 1 1)
(JRST 0 TAG1)
TAG5 (HLRZ@ 1 0 P)
(CAIE 1 (QUOTE *OBJECT) S)
(JRST 0 TAG6)
(CLEARM 0 (SPECIAL PATTERN) S)
(MOVEI 1 (QUOTE OBJECT) S)
(MOVEM 1 (SPECIAL TYPE) S)
(HRRZ@ 1 0 P)
(JRST 0 TAG1)
TAG6 (HLRZ@ 1 0 P)
(MOVEM 1 (SPECIAL TYPE) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG12)
(HRRZ@ 1 0 P)
(CALL 1 (E CADR) S)
(MOVEM 1 (SPECIAL PATTERN) S)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(JUMPE 1 TAG14)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(MOVEM 1 (SPECIAL DATUM) S)
TAG14 (HRRZ@ 1 0 P)
(CALL 1 (E CDDR) S)
(JRST 0 TAG1)
TAG12 (HLRZ@ 1 0 P)
(MOVEM 1 (SPECIAL PATTERN) S)
(MOVEI 1 (QUOTE ITEM) S)
(MOVEM 1 (SPECIAL TYPE) S)
(MOVE 1 0 P)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP CMARKERS SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL DATUM) S)
(JUMPN 1 TAG2)
(MOVEI 1 (QUOTE (MEANINGLESS DATUM -- CMARKERS)) S)
(CALL 17 (E CERR) S)
(JRST 0 TAG1)
TAG2 (CALL 1 (E ATOM) S)
(JUMPE 1 TAG4)
(MOVEI 2 (QUOTE DATUM) S)
(MOVE 1 (SPECIAL DATUM) S)
(CALL 2 (E GET) S)
(CALL 1 (E CMARKERS) S)
(JRST 0 TAG1)
TAG4 (HLRZ@ 1 (SPECIAL DATUM) S)
(CAIE 1 (QUOTE *CLOSURE) S)
(JRST 0 TAG5)
(HRRZ@ 1 (SPECIAL DATUM) S)
(HRRZ@ 1 1)
(JRST 0 TAG1)
TAG5 (HLRZ@ 1 (SPECIAL DATUM) S)
(CAIE 1 (QUOTE *OBJECT) S)
(JRST 0 TAG6)
(HRRZ@ 1 (SPECIAL DATUM) S)
(JRST 0 TAG1)
TAG6 (HLRZ@ 1 (SPECIAL DATUM) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG7)
(HRRZ@ 1 (SPECIAL DATUM) S)
(CALL 1 (E CDDR) S)
(JRST 0 TAG1)
TAG7 (MOVE 1 (SPECIAL DATUM) S)
TAG1 (JRST 0 SPECSTR)
NIL
(LAP PATTERN SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL DATUM) S)
(JUMPN 1 TAG2)
(MOVEI 1 (QUOTE (MEANINGLESS DATUM -- PATTERN)) S)
(CALL 17 (E CERR) S)
(JRST 0 TAG1)
TAG2 (CALL 1 (E ATOM) S)
(JUMPE 1 TAG4)
(MOVEI 2 (QUOTE DATUM) S)
(MOVE 1 (SPECIAL DATUM) S)
(CALL 2 (E GET) S)
(CALL 1 (E PATTERN) S)
(JRST 0 TAG1)
TAG4 (HLRZ@ 1 (SPECIAL DATUM) S)
(CAIE 1 (QUOTE *CLOSURE) S)
(JRST 0 TAG5)
(HRRZ@ 1 (SPECIAL DATUM) S)
(HLRZ@ 1 1)
(CALL 1 (E PATTERN) S)
(JRST 0 TAG1)
TAG5 (HLRZ@ 1 (SPECIAL DATUM) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG6)
(HRRZ@ 1 (SPECIAL DATUM) S)
(CALL 1 (E CADR) S)
(JRST 0 TAG1)
TAG6 (HLRZ@ 1 (SPECIAL DATUM) S)
TAG1 (JRST 0 SPECSTR)
NIL
(LAP DELTHING SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(JUMPE 3 TAG2)
(CALL 1 (E ITEM) S)
(MOVE 2 -1 P)
(CALL 2 (E DELITEM) S)
(JRST 0 TAG1)
TAG2 (MOVEI 3 (QUOTE T) S)
(CALL 3 (E DELQ) S)
TAG1 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP DELITEM SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL EXP) S)
(PUSH P 2)
(MOVE 1 2)
(JUMPE 1 TAG1)
(HLRZ@ 1 1)
(PUSH P (SPECIAL EXP) S)
(CALL 1 (E ITEM) S)
(POP P 2)
(CALL 2 (E EQUAL) S)
(JUMPE 1 TAG2)
(HRRZ@ 1 0 P)
(JRST 0 TAG1)
TAG2 (HRRZ@ 2 0 P)
(MOVE 1 (SPECIAL EXP) S)
(CALL 2 (E DELITEM) S)
(HRRM@ 1 0 P)
(MOVE 1 0 P)
TAG1 (SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(LAP MEMCAR SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL EXP) S)
(PUSH P 2)
(MOVE 1 2)
(JUMPE 1 TAG1)
(HLRZ@ 1 1)
(PUSH P (SPECIAL EXP) S)
(CALL 1 (E ITEM) S)
(POP P 2)
(CALL 2 (E EQUAL) S)
(JUMPE 1 TAG2)
(MOVE 1 0 P)
(JRST 0 TAG1)
TAG2 (HRRZ@ 2 0 P)
(MOVE 1 (SPECIAL EXP) S)
(CALL 2 (E MEMCAR) S)
TAG1 (SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(LAP FIRSTCAR< SUBR)
(PUSH P 1)
(PUSH P 2)
TAG1 (MOVE 1 0 P)
(JUMPE 1 TAG3)
(MOVE 2 -1 P)
(CALL 1 (E CAAR) S)
(CALL 2 (E <) S)
(JUMPE 1 TAG7)
(MOVE 1 0 P)
(JRST 0 TAG2)
TAG7 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP ITEM SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL DATUM) S)
(JUMPN 1 TAG2)
(MOVEI 1 (QUOTE (MEANINGLESS DATUM)) S)
(CALL 17 (E CERR) S)
(JRST 0 TAG1)
TAG2 (CALL 1 (E ATOM) S)
(JUMPE 1 TAG4)
(MOVEI 2 (QUOTE DATUM) S)
(MOVE 1 (SPECIAL DATUM) S)
(CALL 2 (E GET) S)
(CALL 1 (E ITEM) S)
(JRST 0 TAG1)
TAG4 (HLRZ@ 1 (SPECIAL DATUM) S)
(PUSH P 1)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG6)
(MOVE 1 0 P)
(JRST 0 TAG5)
TAG6 (MOVEI 1 (QUOTE NIL))
TAG5 (SUB P (C 1 0 1 0))
TAG1 (JRST 0 SPECSTR)
NIL
(LAP DATUMIZE SUBR)
(PUSH P 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG2)
(MOVE 1 0 P)
(JRST 0 TAG1)
TAG2 (MOVE 1 0 P)
(CALL 1 (E DATUM) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP ATOMIZE SUBR)
(PUSH P 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG2)
(MOVE 1 0 P)
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 0 P)
(CALL 1 (E ACTOR) S)
(JUMPE 1 TAG3)
(MOVEI 1 (QUOTE *VARIABLE) S)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE *STRUCTURE) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP PUSH-CONTEXT LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(PUSH P (C 0 0 TAG1 0))
(MOVNI 6 0)
(JCALL 16 (E CFRAME) S)
TAG1 (PUSH P 1)
(MOVE 2 -1 P)
(MOVEI 1 (QUOTE 0))
(CALL 2 (E GETCONTEXT) S)
(MOVE 2 1)
(JUMPN 2 TAG2)
(MOVE 2 -1 P)
(ADD 2 -3 P)
(HRRZ 2 -577777 2)
TAG2 (HRRZ@ 2 2)
(POP P 1)
(CALL 2 (E CONS) S)
(MOVEI 2 (QUOTE *CONTEXT) S)
(SUB P (C 1 0 1 0))
(JCALL 2 (E XCONS) S)
NIL
(LAP POP-CONTEXT LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVE 2 1)
(MOVEI 1 (QUOTE 0))
(CALL 2 (E GETCONTEXT) S)
(MOVE 2 1)
(JUMPN 2 TAG1)
(MOVE 2 0 P)
(ADD 2 -2 P)
(HRRZ 2 -577777 2)
TAG1 (HRRZ@ 2 2)
(HRRZ@ 2 2)
(MOVEI 1 (QUOTE *CONTEXT) S)
(SUB P (C 1 0 1 0))
(JCALL 2 (E CONS) S)
NIL
(LAP NEW-CONTEXT SUBR)
(PUSH P 1)
(CALL 1 (E ORDERED) S)
(JUMPE 1 TAG2)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE *CONTEXT) S)
(CALL 2 (E CONS) S)
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE (UNORDERED CONTEXT)) S)
(CALL 17 (E CERR) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP SPLICE SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL CONTEXT) S)
(HRRZ@ 1 (SPECIAL CONTEXT) S)
(PUSH P 1)
(PUSH P (C 0 0 TAG4 0))
(HRRZ@ 1 (SPECIAL CONTEXT) S)
(CALL 1 (E CADR) S)
(HRRZ@ 2 (SPECIAL CONTEXT) S)
(HLRZ@ 2 2)
(HRRZ@ 2 2)
(HLRZ@ 2 2)
(CALL 1 (E CADR) S)
(CALL 2 (E NEWCNUM) S)
(PUSH P 1)
(MOVNI 6 1)
(JCALL 16 (E CFRAME) S)
TAG4 (HRRZ@ 2 (SPECIAL CONTEXT) S)
(HRRZ@ 2 2)
(CALL 2 (E CONS) S)
(HRRM@ 1 0 P)
(MOVE 1 (SPECIAL CONTEXT) S)
(SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(LAP IN-CONTEXT SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL CONTEXT) S)
(0 2 (SPECIAL EXPR) S)
(PUSH P (C 0 0 TAG1 0))
(MOVEI D (QUOTE ((CLAMBDA (CONTEXT) (CEVAL (/@ . EXPR))) (/@ . CONTEXT))) S)
(PUSH P D)
(MOVNI 6 1)
(JCALL 16 (E CEVAL) S)
TAG1 (JRST 0 SPECSTR)
NIL
(DEFPROP IN-CONTEXT ((CONTEXT EXPR) (CEVAL EXPR)) CEXPR)
(LAP PATH SUBR)
(PUSH P 1)
(PUSH P (C 0 0 TAG1 0))
(MOVEI D (QUOTE CADR) S)
(PUSH P D)
(HRRZ@ 1 1)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E MAPCAR) S)
TAG1 (MOVEI 2 (QUOTE *CONTEXT) S)
(SUB P (C 1 0 1 0))
(JCALL 2 (E XCONS) S)
NIL
(LAP FINALIZE SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL DATUM) S)
(0 0 (SPECIAL PATTERN) S)
(0 0 (SPECIAL TYPE) S)
(0 0 (SPECIAL NEW) S)
(PUSH P 1)
(HRRZ@ 1 1)
(HLRZ@ 2 1)
(HRRZ@ 3 2)
(HLRZ@ 4 3)
(HRRZ@ 5 1)
(HLRZ@ 5 5)
(MOVEM 1 0 P)
(HRRZ@ 1 5)
(HLRZ@ 1 1)
(PUSH P 5)
(PUSH P 4)
(PUSH P 3)
(PUSH P 2)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (HRRZ@ 1 -10 P)
(MOVEM 1 -10 P)
(JUMPN 1 TAG10)
(HRRZ@ 2 -13 P)
(MOVEI 1 (QUOTE *CONTEXT) S)
(CALL 2 (E CONS) S)
(JRST 0 TAG4)
TAG10 (HLRZ@ 1 -10 P)
(MOVEM 1 (SPECIAL DATUM) S)
(CALL 1 (E ANALYZE) S)
(MOVEM 1 0 P)
(HRRZ@ 2 1)
(MOVE 1 -7 P)
(CALL 2 (E FINDCFRAME) S)
(MOVEM 1 -2 P)
(JUMPE 1 TAG13)
(MOVE 2 0 P)
(MOVE 1 -12 P)
(CALL 2 (E ADDCFRAME) S)
(HRRZ@ 2 -2 P)
(HLRZ@ 2 2)
(MOVE 3 (SPECIAL NEW) S)
(MOVEM 1 -3 P)
(MOVEM 2 -5 P)
(JUMPE 3 TAG14)
(TDZA 3 3)
TAG14 (MOVEI 3 (QUOTE T) S)
(MOVEM 3 -1 P)
(JRST 0 TAG12)
TAG13 (HRRZ@ 2 0 P)
(MOVE 1 -12 P)
(CALL 2 (E FINDCFRAME) S)
(MOVEM 1 -1 P)
(MOVEM 1 -3 P)
TAG12 (MOVE 1 -2 P)
(JUMPE 1 TAG16)
(CALL 1 (E CDDR) S)
(PUSH P 1)
TAG2 (MOVE 1 0 P)
(JUMPE 1 TAG23)
(HLRZ@ 1 0 P)
(PUSH P 1)
(MOVE 2 -5 P)
(HLRZ@ 1 1)
(CALL 2 (E ASSOC) S)
(MOVEM 1 -6 P)
(JUMPE 1 TAG27)
(HRRZ@ 1 0 P)
(HRRM@ 1 -6 P)
(JRST 0 TAG26)
TAG27 (HRRZ@ 2 -5 P)
(HRRZ@ 2 2)
(MOVE 1 0 P)
(CALL 2 (E CONS) S)
(PUSH P 1)
(HRRZ@ 1 -6 P)
(POP P 2)
(HRRM@ 2 1)
TAG26 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(SUB P (C 1 0 1 0))
(JRST 0 TAG2)
TAG23 (SUB P (C 1 0 1 0))
TAG16 (MOVE 1 -5 P)
(JUMPE 1 TAG31)
(PUSH P -3 P)
(HRRZ@ 1 0 P)
(PUSH P 1)
(HRRZ@ 2 -5 P)
(HLRZ@ 2 2)
(HRRZ@ 1 -4 P)
(HLRZ@ 1 1)
(CALL 2 (E MERGE) S)
(JUMPN 1 TAG32)
(MOVEI 1 (QUOTE +) S)
TAG32 (HRLM@ 1 0 P)
(SUB P (C 2 0 2 0))
(JRST 0 TAG30)
TAG31 (MOVE 1 -3 P)
(JUMPE 1 TAG36)
(CALL 1 (E CADR) S)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG36)
(HRRZ@ 2 -3 P)
(HLRZ@ 2 2)
(MOVE 1 -11 P)
(CALL 2 (E MEMBER#) S)
(JUMPE 1 TAG36)
(MOVE 2 -13 P)
(MOVE 1 (SPECIAL DATUM) S)
(CALL 2 (E HIDE) S)
(JRST 0 TAG1)
TAG36 (HRRZ@ 2 0 P)
(MOVE 1 -6 P)
(CALL 2 (E FIRSTCAR<) S)
(PUSH P 1)
TAG3 (MOVE 1 0 P)
(JUMPE 1 TAG46)
(HLRZ@ 1 0 P)
(PUSH P 1)
(CALL 1 (E CADR) S)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG52)
(HRRZ@ 2 0 P)
(HLRZ@ 2 2)
(MOVE 1 -13 P)
(CALL 2 (E MEMBER#) S)
(JUMPE 1 TAG52)
(MOVEI 1 (QUOTE T) S)
(MOVEM 1 (SPECIAL NEW) S)
(MOVE 1 -3 P)
(JUMPN 1 TAG56)
(HRRZ@ 2 0 P)
(HLRZ@ 2 2)
(MOVE 1 -10 P)
(CALL 2 (E MEMBER#) S)
(MOVEM 1 -3 P)
TAG56 (HRRZ@ 1 0 P)
(HLRZ@ 2 1)
(PUSH P 1)
(MOVE 1 -11 P)
(CALL 2 (E MERGEN) S)
(HRLM@ 1 0 P)
(SUB P (C 1 0 1 0))
TAG52 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(SUB P (C 1 0 1 0))
(JRST 0 TAG3)
TAG46 (SUB P (C 1 0 1 0))
TAG30 (MOVE 1 (SPECIAL NEW) S)
(JUMPE 1 TAG60)
(MOVE 1 -1 P)
(JUMPN 1 TAG62)
(HRRZ@ 2 -12 P)
(HRRZ@ 2 2)
(MOVE 1 (SPECIAL DATUM) S)
(CALL 2 (E CONS) S)
(HRRZ@ 2 -12 P)
(HRRM@ 1 2)
TAG62
TAG60 (JRST 0 TAG1)
TAG4 (SUB P (C 14 0 14 0))
(JRST 0 SPECSTR)
NIL
(LAP CFRAME LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(CAIE 1 (QUOTE 0))
(JRST 0 TAG2)
(MOVE 2 (SPECIAL *CNUM) S)
(MOVE 1 (SPECIAL INCCON) S)
(CALL 2 (E *PLUS) S)
(MOVEM 1 (SPECIAL *CNUM) S)
(JRST 0 TAG1)
TAG2 (MOVE 1 -2 P)
(HRRZ 1 1 1)
TAG1 (CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE *CFRAME) S)
(CALL 2 (E XCONS) S)
(MOVEM 1 0 P)
(MOVE 2 (SPECIAL NUMCON) S)
(MOVE 1 (SPECIAL NUMACT) S)
(CALL 2 (E =) S)
(JUMPE 1 TAG13)
(CALL 0 (E GC) S)
(MOVEI 1 (QUOTE NIL))
(CALL 17 (E GCCON) S)
(MOVE 2 (SPECIAL NUMCON) S)
(CALL 2 (E =) S)
TAG13 (JUMPE 1 TAG11)
(MOVEI 1 (QUOTE (TOO MANY CONTEXT-FRAMES)) S)
(CALL 17 (E CERR) S)
TAG11 (MOVEI 2 (QUOTE FIXNUM) S)
(MOVE 1 0 P)
(CALL 2 (E MAKNUM) S)
(PUSH P 1)
(MOVE 1 (SPECIAL NUMACT) S)
(CALL 1 (E FRAMES) S)
(POP P 1)
(PUSHJ P NSTR)
(HRRZ@ 1 0 P)
(PUSH P 1)
(MOVE 1 (SPECIAL NUMACT) S)
(CALL 1 (E RFRAMES) S)
(POP P 1)
(PUSHJ P NSTR)
(MOVE 1 (SPECIAL NUMACT) S)
(CALL 1 (E ADD1) S)
(MOVEM 1 (SPECIAL NUMACT) S)
(MOVE 1 0 P)
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP ORDERED SUBR)
(PUSH P 1)
(JUMPE 1 TAG3)
(TDZA 1 1)
TAG3 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG2)
TAG1 (HRRZ@ 1 0 P)
(JUMPE 1 TAG10)
(HLRZ@ 2 0 P)
(HRRZ@ 2 2)
(HLRZ@ 2 2)
(HRRZ@ 1 0 P)
(CALL 1 (E CADAR) S)
(CALL 2 (E <) S)
(JUMPN 1 TAG11)
(JRST 0 TAG5)
TAG11 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG10 (MOVEI 1 (QUOTE T) S)
(JRST 0 TAG4)
TAG5 (MOVEI 1 (QUOTE NIL))
TAG4
TAG2 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP NEWCNUM SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVE 2 -3 P)
(MOVE 1 -4 P)
(CALL 2 (E *PLUS) S)
(MOVEI 2 (QUOTE 2))
(CALL 2 (E *QUO) S)
(MOVE 2 -3 P)
(MOVEM 1 0 P)
(MOVE 1 -4 P)
(CALL 2 (E CNUMSINUSE) S)
(MOVEI 2 (QUOTE 1))
(MOVEM 1 -2 P)
(MOVEM 2 -1 P)
TAG1 (PUSH P -3 P)
(PUSH P -1 P)
(MOVE 1 -1 P)
(JUMPE 1 TAG13)
(MOVE 2 0 P)
(CALL 2 (E *GREAT) S)
(JUMPE 1 TAG13)
(MOVE 1 0 P)
TAG13 (MOVE 2 -6 P)
(CALL 2 (E *GREAT) S)
(SUB P (C 2 0 2 0))
(JUMPE 1 TAG11)
(MOVE 2 -2 P)
(MOVE 1 0 P)
(CALL 2 (E MEMBER#) S)
(JUMPE 1 TAG17)
(MOVE 2 -1 P)
(MOVE 1 0 P)
(CALL 2 (E *PLUS) S)
(MOVEM 1 0 P)
(MOVE 1 -1 P)
(CALL 1 (E ADD1) S)
(MOVE 2 1)
(MOVEI 1 (QUOTE 0))
(CALL 2 (E *DIF) S)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG17 (MOVE 1 0 P)
(JRST 0 TAG2)
(JRST 0 TAG10)
TAG11 (MOVEI 1 (QUOTE (NO NEW CNUM BETWEEN (* LOW) AND# (* HIGH))) S)
(CALL 17 (E CERR) S)
TAG10 (MOVEI 1 (QUOTE NIL))
TAG2 (SUB P (C 5 0 5 0))
(POPJ P)
NIL
(LAP CNUMSINUSE SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 1 (QUOTE 0))
(MOVEM 1 0 P)
(MOVE 1 (SPECIAL NUMACT) S)
(CALL 1 (E SUB1) S)
(MOVEM 1 -2 P)
TAG1 (MOVE 2 -2 P)
(MOVE 1 0 P)
(CALL 2 (E >) S)
(JUMPE 1 TAG11)
(MOVE 1 -1 P)
(JRST 0 TAG2)
TAG11 (MOVE 1 0 P)
(CALL 1 (E RFRAMES) S)
(HLRZ@ 2 1)
(MOVEM 2 -3 P)
(MOVE 1 -5 P)
(CALL 2 (E >) S)
(JUMPN 1 TAG12)
(MOVE 2 -4 P)
(MOVE 1 -3 P)
(CALL 2 (E >) S)
TAG12 (JUMPN 1 TAG10)
(MOVE 2 -1 P)
(MOVE 1 -3 P)
(CALL 2 (E CONS) S)
(MOVEM 1 -1 P)
TAG10 (MOVE 1 0 P)
(CALL 1 (E ADD1) S)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG2 (SUB P (C 6 0 6 0))
(POPJ P)
NIL
(LAP *GCCON SUBR)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 1 (QUOTE 0))
(MOVE 2 (SPECIAL NUMACT) S)
(MOVEM 1 -1 P)
(MOVEM 2 0 P)
TAG1 (MOVE 2 -1 P)
(MOVE 1 0 P)
(CALL 2 (E =) S)
(JUMPE 1 TAG13)
(MOVE 1 -1 P)
(JRST 0 TAG4)
TAG13 (MOVE 1 -1 P)
(CALL 1 (E FRAMES) S)
(CALL 1 (E NUMVAL) S)
(HRRZ@ 1 1)
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 1 (E RFRAMES) S)
(POP P 2)
(CAME 1 2)
(JRST 0 TAG14)
(MOVE 1 -1 P)
(CALL 1 (E ADD1) S)
(MOVEM 1 -1 P)
(JRST 0 TAG1)
TAG14 (MOVE 1 -1 P)
(CALL 1 (E RFRAMES) S)
(CALL 1 (E FLUSH) S)
(MOVE 1 -1 P)
(CALL 1 (E RFRAMES) S)
(MOVEI 1 (QUOTE 0))
(PUSHJ P NSTR)
TAG2 (MOVE 1 0 P)
(CALL 1 (E SUB1) S)
(MOVEM 1 0 P)
(MOVE 2 -1 P)
(CALL 2 (E =) S)
(JUMPE 1 TAG16)
(MOVE 1 -1 P)
(JRST 0 TAG4)
TAG16 (MOVE 1 0 P)
(CALL 1 (E FRAMES) S)
(CALL 1 (E NUMVAL) S)
(HRRZ@ 1 1)
(PUSH P 1)
(MOVE 1 -1 P)
(CALL 1 (E RFRAMES) S)
(POP P 2)
(CAMN 1 2)
(JRST 0 TAG3)
(MOVE 1 0 P)
(CALL 1 (E RFRAMES) S)
(CALL 1 (E FLUSH) S)
(MOVE 1 0 P)
(CALL 1 (E RFRAMES) S)
(MOVEI 1 (QUOTE 0))
(PUSHJ P NSTR)
(JRST 0 TAG2)
TAG3 (MOVE 1 0 P)
(CALL 1 (E FRAMES) S)
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 1 (E FRAMES) S)
(POP P 1)
(PUSHJ P NSTR)
(MOVE 1 0 P)
(CALL 1 (E RFRAMES) S)
(PUSH P 1)
(MOVE 1 -2 P)
(CALL 1 (E RFRAMES) S)
(POP P 1)
(PUSHJ P NSTR)
(MOVE 1 0 P)
(CALL 1 (E RFRAMES) S)
(MOVEI 1 (QUOTE 0))
(PUSHJ P NSTR)
(JRST 0 TAG1)
TAG4 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP GCCON FSUBR)
(PUSH P 1)
(CALL 0 (E *GCCON) S)
(MOVEM 1 (SPECIAL NUMACT) S)
(MOVEM 1 0 P)
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP FLUSH SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL DATUM) S)
(0 0 (SPECIAL PATTERN) S)
(0 0 (SPECIAL TYPE) S)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(HRRZ@ 1 -3 P)
(HLRZ@ 2 -3 P)
(MOVEM 1 0 P)
(MOVEM 2 -1 P)
TAG1 (MOVE 1 0 P)
(JUMPE 1 TAG3)
(HLRZ@ 1 0 P)
(MOVEM 1 (SPECIAL DATUM) S)
(CALL 1 (E ANALYZE) S)
(MOVE 2 1)
(MOVEM 1 -2 P)
(MOVE 1 -1 P)
(CALL 2 (E REMCFRAME) S)
(JUMPE 1 TAG15)
(MOVE 1 (SPECIAL PATTERN) S)
(JUMPE 1 TAG17)
(HRRZ@ 1 -2 P)
(JUMPE 1 TAG20)
(TDZA 1 1)
TAG20 (MOVEI 1 (QUOTE T) S)
TAG17
TAG15 (JUMPE 1 TAG13)
(MOVEI 2 (QUOTE *INDEX) S)
(MOVE 1 (SPECIAL TYPE) S)
(CALL 2 (E GET) S)
(MOVE 2 (SPECIAL TYPE) S)
(PUSH P 1)
(CAIE 2 (QUOTE ITEM) S)
(TDZA 4 4)
(MOVEI 4 (QUOTE T) S)
(MOVE 3 1)
(MOVE 2 (SPECIAL PATTERN) S)
(MOVE 1 (SPECIAL DATUM) S)
(CALL 4 (E UNINDEX) S)
(SUB P (C 1 0 1 0))
TAG13 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG3 (MOVEI 1 (QUOTE NIL))
(SUB P (C 4 0 4 0))
(JRST 0 SPECSTR)
NIL
(LAP REMCFRAME SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (HRRZ@ 1 -3 P)
(JUMPE 1 TAG4)
(HRRZ@ 2 -3 P)
(HLRZ@ 2 2)
(HLRZ@ 2 2)
(MOVEM 2 0 P)
(MOVE 1 -4 P)
(CALL 2 (E =) S)
(JUMPE 1 TAG10)
(HRRZ@ 1 -3 P)
(HRRZ@ 1 1)
(PUSH P 1)
(HRRZ@ 1 -4 P)
(CALL 1 (E CADAR) S)
(POP P 2)
(HRRM@ 2 -3 P)
(JUMPE 1 TAG12)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG3)
TAG12 (MOVEI 1 (QUOTE T) S)
(MOVEM 1 -2 P)
(JRST 0 TAG6)
TAG10 (MOVE 2 0 P)
(MOVE 1 -4 P)
(CALL 2 (E >) S)
(JUMPE 1 TAG13)
(HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JRST 0 TAG1)
TAG13
TAG6
TAG2 (HRRZ@ 1 -3 P)
(MOVEM 1 -3 P)
(JUMPN 1 TAG15)
(MOVE 1 -2 P)
(JRST 0 TAG3)
TAG15 (HLRZ@ 1 1)
(MOVEM 1 -1 P)
(CALL 1 (E CADR) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG17)
(HRRZ@ 2 -1 P)
(HLRZ@ 2 2)
(MOVE 1 -4 P)
(CALL 2 (E MEMBER#) S)
(JUMPE 1 TAG21)
(PUSH P -1 P)
(HRRZ@ 1 0 P)
(PUSH P 1)
(MOVEI 3 (QUOTE 1))
(HRRZ@ 2 -3 P)
(HLRZ@ 2 2)
(MOVE 1 -6 P)
(CALL 3 (E DELETE) S)
(JUMPN 1 TAG22)
(MOVEI 1 (QUOTE +) S)
TAG22 (HRLM@ 1 0 P)
(SUB P (C 2 0 2 0))
TAG21
TAG17 (JRST 0 TAG2)
TAG4 (MOVEI 1 (QUOTE NIL))
TAG3 (SUB P (C 5 0 5 0))
(POPJ P)
NIL
(LAP !" FSUBR)
(JCALL 1 (E !"1) S)
NIL
(DEFPROP !" CP-!" CPRINT)
(LAP !"1 SUBR)
(PUSH P 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG2)
(MOVE 1 0 P)
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 0 P)
(CAIE 1 (QUOTE /@) S)
(JRST 0 TAG3)
(HRRZ@ 1 0 P)
(CALL 1 (E *EVAL) S)
(JRST 0 TAG1)
TAG3 (HLRZ@ 1 0 P)
(CAIE 1 (QUOTE /,) S)
(JRST 0 TAG4)
(MOVEI 2 (QUOTE *TOP) S)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CALL 2 (E IVAL) S)
(JRST 0 TAG1)
TAG4 (HLRZ@ 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG5)
(HLRZ@ 1 0 P)
(PUSH P 1)
(HRRZ@ 1 -1 P)
(CALL 1 (E !"1) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(JRST 0 TAG1)
TAG5 (HLRZ@ 1 0 P)
(HLRZ@ 1 1)
(CAIE 1 (QUOTE !@) S)
(JRST 0 TAG6)
(HLRZ@ 1 0 P)
(HRRZ@ 1 1)
(CALL 1 (E *EVAL) S)
(PUSH P 1)
(HRRZ@ 1 -1 P)
(CALL 1 (E !"1) S)
(MOVE 2 1)
(POP P 1)
(CALL 2 (E *APPEND) S)
(JRST 0 TAG1)
TAG6 (HLRZ@ 1 0 P)
(CALL 1 (E !"1) S)
(PUSH P 1)
(HRRZ@ 1 -1 P)
(CALL 1 (E !"1) S)
(POP P 2)
(CALL 2 (E XCONS) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP KTH SUBR)
(CALL 2 (E NTH) S)
(HLRZ@ 1 1)
(POPJ P)
NIL
(DEFPROP TRY-NEXT ((POSSIBILITIES "OPTIONAL" (NOMORE NIL) (MESSAGE NIL)) "AUX" (POS) (: TRY-NEXT) (GO (NEXT)) (:→
EXIT) (RETURN (CEVAL NOMORE (ACCESS))) (: RETURN) (RETURN POS) (: *METHOD) (METGO) (: *GENERATOR) (GENGO) (: *A→
U-REVOIR) (REGO) (: *BLOCK) (TBLOCK)) CEXPR)
(LAP NEXT FSUBR)
(PUSH P 1)
(MOVEI 1 (QUOTE (POSSIBILITIES)) S)
(CALL 17 (E /,) S)
(MOVEM 1 0 P)
(CALL 1 (E ATOM) S)
(JUMPN 1 TAG7)
(HLRZ@ 1 0 P)
(HLRZ@ 1 1)
(PUSH P 1)
(CAIE 1 (QUOTE *POSSIBILITIES) S)
(JRST 0 TAG10)
(TDZA 1 1)
TAG10 (MOVEI 1 (QUOTE T) S)
(SUB P (C 1 0 1 0))
TAG7 (JUMPE 1 TAG6)
(MOVEI 1 (QUOTE (BAD POSSIBILITIES LIST)) S)
(CALL 17 (E CERR) S)
TAG6 (PUSH P (C 0 0 (QUOTE NIL) 0))
(HRRZ@ 1 -1 P)
(JUMPN 1 TAG15)
(MOVEI 1 (QUOTE EXIT) S)
(JRST 0 TAG11)
TAG15 (HRRZ@ 1 -1 P)
(CALL 1 (E UNBLOCK) S)
TAG1 (HRRZ@ 1 -1 P)
(HRRZ@ 1 1)
(JUMPN 1 TAG20)
(MOVEI 1 (QUOTE EXIT) S)
(JRST 0 TAG11)
TAG20 (HRRZ@ 1 -1 P)
(HRRZ@ 1 1)
(HRRM@ 1 -1 P)
(HRRZ@ 1 -1 P)
(HLRZ@ 1 1)
(MOVEM 1 0 P)
(CAIN 1 (QUOTE *IGNORE) S)
(JRST 0 TAG1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG23)
(PUSH P (C 0 0 TAG24 0))
(MOVEI D (QUOTE POS) S)
(PUSH P D)
(PUSH P -2 P)
(MOVNI 6 2)
(JCALL 16 (E CSET) S)
TAG24 (MOVEI 1 (QUOTE RETURN) S)
(JRST 0 TAG11)
TAG23 (HLRZ@ 1 0 P)
(CAIE 1 (QUOTE *ITEM) S)
(JRST 0 TAG25)
(HRRZ@ 1 0 P)
(CALL 1 (E CADR) S)
(CALL 1 (E SETUP) S)
(PUSH P (C 0 0 TAG26 0))
(MOVEI D (QUOTE POS) S)
(PUSH P D)
(HRRZ@ 1 -2 P)
(HLRZ@ 1 1)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E CSET) S)
TAG26 (MOVEI 1 (QUOTE RETURN) S)
(JRST 0 TAG11)
TAG25 (HLRZ@ 1 0 P)
(CAIE 1 (QUOTE *NOTE) S)
(JRST 0 TAG27)
(HRRZ@ 1 0 P)
(HLRZ@ 1 1)
(CALL 1 (E SETUP) S)
(PUSH P (C 0 0 TAG30 0))
(MOVEI D (QUOTE POS) S)
(PUSH P D)
(PUSH P -2 P)
(MOVNI 6 2)
(JCALL 16 (E CSET) S)
TAG30 (MOVEI 1 (QUOTE RETURN) S)
(JRST 0 TAG11)
TAG27 (MOVEI 2 (QUOTE (*METHOD *GENERATOR *AU-REVOIR *BLOCK)) S)
(HLRZ@ 1 0 P)
(CALL 2 (E MEMQ#) S)
(JUMPE 1 TAG31)
(HLRZ@ 1 0 P)
(JRST 0 TAG11)
TAG31 (PUSH P (C 0 0 TAG34 0))
(MOVEI D (QUOTE POS) S)
(PUSH P D)
(PUSH P -2 P)
(MOVNI 6 2)
(JCALL 16 (E CSET) S)
TAG34 (MOVEI 1 (QUOTE RETURN) S)
(JRST 0 TAG11)
TAG11 (SUB P (C 1 0 1 0))
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP SETUP SUBR)
(PUSH P 1)
(PUSH P (C 0 0 TAG5 0))
(MOVNI 6 0)
(JCALL 16 (E ACCESS) S)
TAG5 (MOVEM 1 (SPECIAL TEM) S)
(PUSH P 0 P)
TAG1 (MOVE 1 0 P)
(JUMPE 1 TAG12)
(HLRZ@ 1 0 P)
(PUSH P 1)
(PUSH P (C 0 0 TAG15 0))
(HLRZ@ 1 1)
(PUSH P 1)
(HRRZ@ 1 -2 P)
(HLRZ@ 1 1)
(PUSH P 1)
(PUSH P (SPECIAL TEM) S)
(MOVNI 6 3)
(JCALL 16 (E CSET) S)
TAG15 (HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(SUB P (C 1 0 1 0))
(JRST 0 TAG1)
TAG12 (MOVEI 1 (QUOTE NIL))
(SUB P (C 1 0 1 0))
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP GENGO SUBR)
(MOVE 2 (SPECIAL ALINK) S)
(MOVEI 1 (QUOTE POSSIBILITIES) S)
(CALL 2 (E IVAL) S)
(HRRZ@ 1 1)
(MOVEM 1 (SPECIAL TEM) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE NEXT) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(MOVEM 1 (SPECIAL BVARS) S)
(MOVEI 1 (QUOTE TRY-NEXT) S)
(CALL 1 (E TAG) S)
(CALL 1 (E FR) S)
(MOVEM 1 (SPECIAL CLINK) S)
(CALL 1 (E CDADR) S)
(MOVEM 1 (SPECIAL ALINK) S)
(HLRZ@ 1 (SPECIAL TEM) S)
(CALL 1 (E CADR) S)
(MOVEM 1 (SPECIAL TEM1) S)
(CLEARM 0 (SPECIAL FRAME*) S)
(MOVEI 1 (QUOTE *BLOCK) S)
(CALL 1 (E NCONS) S)
(PUSH P (SPECIAL TEM) S)
(HRLM@ 1 0 P)
(MOVEI 4 (QUOTE *TOP) S)
(MOVEI 3 (QUOTE NIL))
(MOVEI 2 (QUOTE POPJ) S)
(MOVE 1 (SPECIAL TEM1) S)
(CALL 4 (E DISPATCH) S)
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(DEFPROP GENGO GENGO CINT)
(LAP METGO SUBR)
(MOVE 2 (SPECIAL ALINK) S)
(MOVEI 1 (QUOTE POSSIBILITIES) S)
(CALL 2 (E IVAL) S)
(HRRZ@ 1 1)
(MOVEM 1 (SPECIAL TEM) S)
(CALL 1 (E CADAR) S)
(MOVEM 1 (SPECIAL TEM1) S)
(PUSH P (C 0 0 TAG7 0))
(MOVE 1 (SPECIAL TEM) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE NEXT) S)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(MOVE 1 (SPECIAL TEM1) S)
(CALL 1 (E TEXT) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE *BODY) S)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(HLRZ@ 1 (SPECIAL TEM) S)
(HRRZ@ 1 1)
(CALL 1 (E CADDDR) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE *CALLPAT) S)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(MOVE 1 (SPECIAL TEM1) S)
(CALL 1 (E PATTERN) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE *METHPAT) S)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(HLRZ@ 1 (SPECIAL TEM) S)
(CALL 1 (E CADDDR) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE *CALLALIST) S)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(HLRZ@ 1 (SPECIAL TEM) S)
(CALL 1 (E CADDR) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE *METHALIST) S)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(POP P 2)
(CALL 2 (E XCONS) S)
(PUSH P 1)
(HLRZ@ 1 (SPECIAL TEM) S)
(CALL 1 (E CADDR) S)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC) S)
TAG7 (MOVEM 1 (SPECIAL BVARS) S)
(HLRZ@ 1 (SPECIAL TEM) S)
(HRRZ@ 1 1)
(CALL 1 (E CADDDR) S)
(CALL 1 (E NCONS) S)
(MOVE 2 (SPECIAL TEM1) S)
(CALL 2 (E XCONS) S)
(MOVEM 1 (SPECIAL EXP) S)
(CLEARM 0 (SPECIAL FRAME*) S)
(MOVEI 1 (QUOTE TRY-NEXT) S)
(CALL 1 (E TAG) S)
(CALL 1 (E FR) S)
(MOVEM 1 (SPECIAL CLINK) S)
(CALL 1 (E CDADR) S)
(MOVEM 1 (SPECIAL ALINK) S)
(CALL 0 (E CLOSE) S)
(MOVEI 1 (QUOTE *BLOCK) S)
(CALL 1 (E NCONS) S)
(PUSH P (SPECIAL TEM) S)
(HRLM@ 1 0 P)
(MOVEI 1 (QUOTE AUXB) S)
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(DEFPROP METGO METGO CINT)
(LAP REGO SUBR)
(MOVE 2 (SPECIAL ALINK) S)
(MOVEI 1 (QUOTE POSSIBILITIES) S)
(CALL 2 (E IVAL) S)
(HRRZ@ 1 1)
(MOVEM 1 (SPECIAL TEM) S)
(MOVE 2 (SPECIAL ALINK) S)
(MOVEI 1 (QUOTE MESSAGE) S)
(CALL 2 (E IVAL) S)
(MOVEM 1 (SPECIAL VAL) S)
(HLRZ@ 1 (SPECIAL TEM) S)
(CALL 1 (E CADR) S)
(MOVEM 1 (SPECIAL FRAME*) S)
(PUSH P (C 0 0 TAG7 0))
(MOVEI D (QUOTE NEXT) S)
(PUSH P D)
(HLRZ@ 1 (SPECIAL TEM) S)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E VFRAME) S)
TAG7 (PUSH P 1)
(MOVEI 1 (QUOTE TRY-NEXT) S)
(CALL 1 (E TAG) S)
(MOVE 2 1)
(POP P 1)
(CALL 2 (E SETCONTROL) S)
(PUSH P (C 0 0 TAG10 0))
(MOVEI D (QUOTE NEXT) S)
(PUSH P D)
(PUSH P (SPECIAL TEM) S)
(HLRZ@ 1 (SPECIAL TEM) S)
(PUSH P 1)
(MOVNI 6 3)
(JCALL 16 (E CSET) S)
TAG10 (MOVEI 1 (QUOTE *BLOCK) S)
(CALL 1 (E NCONS) S)
(PUSH P (SPECIAL TEM) S)
(HRLM@ 1 0 P)
(CALL 0 (E RESTORE) S)
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(DEFPROP REGO REGO CINT)
(DEFPROP TBLOCK (NIL (NCONC (CADR POSSIBILITIES) (TAG (QUOTE TRY-NEXT))) (ALLOW NIL) (COND ((/@ . READY) (CONTIN→
UE (/@ PROG2 (ALLOW T) (CAR READY) (SETQ READY (CDR READY)))))) (ALLOW T) (LISTEN (QUOTE ALL-BLOCKED-UP))) CEXPR→
)
(LAP UNBLOCK SUBR)
(PUSH P 1)
(CALL 1 (E CAAR) S)
(CAIE 1 (QUOTE *BLOCK) S)
(JRST 0 TAG2)
(PUSH P (C 0 0 TAG3 0))
(MOVEI 2 (QUOTE VALUE) S)
(MOVEI 1 (QUOTE READY) S)
(CALL 2 (E GET) S)
(PUSH P 1)
(HLRZ@ 1 -2 P)
(HRRZ@ 1 1)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC) S)
TAG3 (MOVEI 1 (QUOTE *IGNORE) S)
(HRLM@ 1 0 P)
(MOVE 1 0 P)
(JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE NIL))
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP NOTE LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVEI 2 (QUOTE 0))
(CALL 2 (E =) S)
(JUMPE 1 TAG3)
(MOVEI 1 (QUOTE NIL))
(CALL 17 (E INSTANCE) S)
(PUSH P 1)
(JUMPE 1 TAG5)
(CALL 1 (E ENTER) S)
TAG5 (MOVEI 1 (QUOTE 0))
(SUB P (C 1 0 1 0))
(JRST 0 TAG2)
TAG3 (PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVEI 1 (QUOTE 0))
(MOVEM 1 -1 P)
(PUSH P (C 0 0 TAG16 0))
(MOVEI D (QUOTE NEXT) S)
(PUSH P D)
(MOVNI 6 1)
(JCALL 16 (E VLOC) S)
TAG16 (HRRZ@ 2 1)
(MOVEM 2 0 P)
TAG1 (MOVE 1 -1 P)
(CALL 1 (E ADD1) S)
(MOVE 2 -2 P)
(MOVEM 1 -1 P)
(CALL 2 (E >) S)
(JUMPE 1 TAG20)
(MOVE 1 -2 P)
(JRST 0 TAG10)
TAG20 (MOVE 1 -1 P)
(ADD 1 -4 P)
(HRRZ 1 -577777 1)
(HLRZ@ 2 0 P)
(HRRZ@ 2 2)
(CALL 2 (E CONS) S)
(HLRZ@ 2 0 P)
(HRRM@ 1 2)
(HLRZ@ 1 0 P)
(HRRZ@ 1 1)
(HRLM@ 1 0 P)
(JRST 0 TAG1)
TAG10 (SUB P (C 2 0 2 0))
TAG2 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(DEFPROP ADIEU (("REST" L) (PROPOSE) (DISMISS (VFRAME (QUOTE NEXT)))) CEXPR)
(DEFPROP AU-REVOIR (("REST" L) (PROPOSE) (ENTER (CONS (QUOTE *AU-REVOIR) (CDR (CONTROL)))) (DISMISS (VFRAME (QUO→
TE NEXT)))) CEXPR)
(LAP ENTER SUBR)
(PUSH P 1)
(PUSH P (C 0 0 TAG4 0))
(MOVEI D (QUOTE NEXT) S)
(PUSH P D)
(MOVNI 6 1)
(JCALL 16 (E VLOC) S)
TAG4 (HRRZ@ 1 1)
(MOVEM 1 (SPECIAL TEM) S)
(HLRZ@ 2 1)
(HRRZ@ 2 2)
(MOVE 1 0 P)
(CALL 2 (E CONS) S)
(HLRZ@ 2 (SPECIAL TEM) S)
(HRRM@ 1 2)
(HLRZ@ 1 (SPECIAL TEM) S)
(HRRZ@ 1 1)
(PUSH P (SPECIAL TEM) S)
(HRLM@ 1 0 P)
(POP P 1)
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP PROPOSE FSUBR)
(PUSH P 1)
(PUSH P (C 0 0 TAG5 0))
(MOVEI D (QUOTE NEXT) S)
(PUSH P D)
(MOVNI 6 1)
(JCALL 16 (E VLOC) S)
TAG5 (HRRZ@ 1 1)
(MOVEM 1 0 P)
(MOVEI 1 (QUOTE (L)) S)
(CALL 17 (E /,) S)
(PUSH P 1)
TAG1 (MOVE 1 0 P)
(JUMPE 1 TAG12)
(HLRZ@ 1 0 P)
(PUSH P 1)
(HLRZ@ 2 -2 P)
(HRRZ@ 2 2)
(MOVE 1 0 P)
(CALL 2 (E CONS) S)
(HLRZ@ 2 -2 P)
(HRRM@ 1 2)
(HLRZ@ 1 -2 P)
(HRRZ@ 1 1)
(HRLM@ 1 -2 P)
(HRRZ@ 1 -1 P)
(MOVEM 1 -1 P)
(SUB P (C 1 0 1 0))
(JRST 0 TAG1)
TAG12 (MOVEI 1 (QUOTE NIL))
(SUB P (C 1 0 1 0))
(SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP INSTANCE FSUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 TAG7 0))
(MOVEI D (QUOTE NEXT) S)
(PUSH P D)
(MOVNI 6 1)
(JCALL 16 (E VFRAME) S)
TAG7 (CALL 1 (E FR) S)
(MOVE 2 1)
(MOVEM 1 0 P)
(MOVEI 1 (QUOTE *CALLALIST) S)
(CALL 2 (E IVAL) S)
(MOVEM 1 -1 P)
(PUSH P (C 0 0 TAG10 0))
(MOVE 2 -1 P)
(MOVEI 1 (QUOTE *CALLPAT) S)
(CALL 2 (E IVAL) S)
(PUSH P 1)
(MOVE 2 -2 P)
(MOVEI 1 (QUOTE *METHPAT) S)
(CALL 2 (E IVAL) S)
(PUSH P 1)
(PUSH P -4 P)
(MOVE 2 -4 P)
(MOVEI 1 (QUOTE *METHALIST) S)
(CALL 2 (E IVAL) S)
(PUSH P 1)
(MOVNI 6 4)
(JCALL 16 (E MATCH) S)
TAG10 (MOVEM 1 -2 P)
(MOVE 1 -2 P)
(JUMPE 1 TAG12)
(HLRZ@ 1 1)
(CALL 1 (E CPY) S)
(CALL 1 (E NCONS) S)
(MOVEI 2 (QUOTE *NOTE) S)
(CALL 2 (E XCONS) S)
(JRST 0 TAG1)
TAG12 (MOVEI 1 (QUOTE NIL))
TAG1 (SUB P (C 3 0 3 0))
(POPJ P)
NIL
(LAP CPY SUBR)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
TAG1 (MOVE 1 -3 P)
(JUMPE 1 TAG6)
(HLRZ@ 1 -3 P)
(PUSH P 1)
(CALL 1 (E CADR) S)
(CALL 1 (E NCONS) S)
(HLRZ@ 2 0 P)
(CALL 2 (E XCONS) S)
(CALL 1 (E NCONS) S)
(MOVEM 1 -3 P)
(MOVE 1 -2 P)
(JUMPE 1 TAG12)
(MOVE 1 -3 P)
(HRRM@ 1 -2 P)
(HRRZ@ 2 -2 P)
(JRST 0 TAG11)
TAG12 (MOVE 2 -3 P)
(MOVEM 2 -1 P)
TAG11 (HRRZ@ 1 -4 P)
(MOVEM 1 -4 P)
(MOVEM 2 -2 P)
(SUB P (C 1 0 1 0))
(JRST 0 TAG1)
TAG6 (MOVE 1 0 P)
(SUB P (C 4 0 4 0))
(POPJ P)
NIL
(LAP GET-POSSIBILITIES FSUBR)
(PUSHJ P *AMAKE)
(PUSH P (C 0 0 TAG1 0))
(MOVEI D (QUOTE NEXT) S)
(PUSH P D)
(MOVNI 6 1)
(JCALL 16 (E VFRAME) S)
TAG1 (CALL 1 (E FR) S)
(HRRZ@ 2 1)
(HRRZ@ 2 2)
(HRRZ@ 2 2)
(MOVEI 1 (QUOTE POSSIBILITIES) S)
(JCALL 2 (E IVAL) S)
NIL
(LAP SET-POSSIBILITIES SUBR)
(PUSH P 1)
(PUSH P (C 0 0 TAG1 0))
(MOVEI D (QUOTE POSSIBILITIES) S)
(PUSH P D)
(PUSH P 1)
(PUSH P (C 0 0 TAG2 0))
(PUSH P (C 0 0 TAG3 0))
(MOVEI D (QUOTE NEXT) S)
(PUSH P D)
(MOVNI 6 1)
(JCALL 16 (E VFRAME) S)
TAG3 (PUSH P 1)
(MOVNI 6 1)
(JCALL 16 (E CONTROL) S)
TAG2 (PUSH P 1)
(MOVNI 6 3)
(JCALL 16 (E CSET) S)
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(DEFPROP GENERATE (((QUOTE FORM)) "AUX" ((POSSIBILITIES (LIST (LIST (QUOTE *POSSIBILITIES) (/, FORM)) (LIST (QUO→
TE *GENERATOR) (/, FORM))))) (GENGO) (: TRY-NEXT) POSSIBILITIES) CEXPR)
(LAP MATCH LSUBR)
(JSP 3 *LCALL)
(PUSH P 1)
(MOVE 1 -2 P)
(HRRZ 1 1 1)
(MOVE 2 -2 P)
(HRRZ 2 2 2)
(JSP 6 SPECBIND)
(0 0 (SPECIAL MALIST1) S)
(0 0 (SPECIAL MALIST2) S)
(0 0 (SPECIAL MALISTV1) S)
(0 0 (SPECIAL MALISTV2) S)
(0 0 (SPECIAL NOBIND) S)
(PUSH P 1)
(PUSH P 2)
(MOVEI 2 (QUOTE 2))
(MOVE 1 -2 P)
(CALL 2 (E >) S)
(JUMPE 1 TAG5)
(MOVE 1 -4 P)
(HRRZ 1 3 1)
(MOVEM 1 (SPECIAL MALIST1) S)
(MOVE 1 -4 P)
(HRRZ 1 4 1)
(MOVEM 1 (SPECIAL MALIST2) S)
(MOVEI 1 (QUOTE T) S)
(MOVEM 1 (SPECIAL NOBIND) S)
TAG5 (MOVEI 2 (QUOTE VALUE) S)
(MOVEI 1 (QUOTE MALIST1) S)
(CALL 2 (E GET) S)
(MOVEM 1 (SPECIAL MALISTV1) S)
(MOVEI 1 (QUOTE MALIST2) S)
(CALL 2 (E GET) S)
(MOVEM 1 (SPECIAL MALISTV2) S)
(MOVE 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E MATCH1) S)
(JUMPE 1 TAG15)
(MOVE 1 (SPECIAL MALIST2) S)
(CALL 1 (E NCONS) S)
(MOVE 2 (SPECIAL MALIST1) S)
(CALL 2 (E XCONS) S)
TAG15 (SUB P (C 3 0 3 0))
(JRST 0 SPECSTR)
NIL
(LAP MATCH1 SUBR)
(PUSH P 1)
(PUSH P 2)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG5)
(MOVE 3 (SPECIAL MALISTV2) S)
(MOVE 2 -3 P)
(MOVE 1 -2 P)
(CALL 3 (E MATCH2) S)
(JRST 0 TAG4)
TAG5 (MOVE 1 2)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG6)
(MOVE 3 (SPECIAL MALISTV1) S)
(MOVE 1 -3 P)
(CALL 3 (E MATCH2) S)
(JRST 0 TAG4)
TAG6 (HLRZ@ 1 2)
(MOVEM 1 -1 P)
(CAIE 1 (QUOTE !') S)
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG4)
(MOVEI 2 (QUOTE (!< !?)) S)
(MOVE 1 -1 P)
(CALL 2 (E MEMQ#) S)
(JUMPE 1 TAG7)
(HRRZ@ 2 (SPECIAL MALISTV2) S)
(MOVE 1 -2 P)
(CALL 2 (E ACTORSUBST) S)
(MOVE 3 (SPECIAL MALISTV1) S)
(MOVE 2 1)
(MOVE 1 -3 P)
(CALL 3 (E MATCH2) S)
(JRST 0 TAG4)
TAG7 (HLRZ@ 1 -3 P)
(MOVEM 1 0 P)
(CAIE 1 (QUOTE !>) S)
(JRST 0 TAG10)
(MOVE 4 (SPECIAL MALISTV2) S)
(MOVE 3 (SPECIAL MALISTV1) S)
(MOVE 2 -2 P)
(HRRZ@ 1 -3 P)
(CALL 4 (E !>) S)
(JRST 0 TAG4)
TAG10 (CAIE 1 (QUOTE !?) S)
(JRST 0 TAG11)
(MOVEI 5 (QUOTE T) S)
(MOVE 4 (SPECIAL MALISTV2) S)
(MOVE 3 (SPECIAL MALISTV1) S)
(MOVE 2 -2 P)
(HRRZ@ 1 -3 P)
(CALL 5 (E !?) S)
(JRST 0 TAG4)
TAG11 (CAIE 1 (QUOTE !') S)
(JRST 0 TAG12)
(MOVE 4 (SPECIAL MALISTV1) S)
(MOVE 3 -2 P)
(HRRZ@ 2 -3 P)
(HRRZ@ 2 2)
(HRRZ@ 1 -3 P)
(HLRZ@ 1 1)
(CALL 4 (E MBINDR) S)
(JRST 0 TAG4)
TAG12 (CAIE 1 (QUOTE !<) S)
(JRST 0 TAG13)
(MOVE 4 (SPECIAL MALISTV2) S)
(MOVE 3 (SPECIAL MALISTV1) S)
(MOVE 2 -2 P)
(HRRZ@ 1 -3 P)
(HLRZ@ 1 1)
(CALL 4 (E !<) S)
(JRST 0 TAG4)
TAG13 (CAIE 1 (QUOTE !/,) S)
(JRST 0 TAG14)
(MOVE 4 (SPECIAL MALISTV2) S)
(MOVE 3 (SPECIAL MALISTV1) S)
(MOVE 2 -2 P)
(HRRZ@ 1 -3 P)
(CALL 4 (E COMMA) S)
(JRST 0 TAG4)
TAG14 (CAIE 1 (QUOTE !;) S)
(JRST 0 TAG15)
(MOVEI 5 (QUOTE T) S)
(MOVE 4 (SPECIAL MALISTV2) S)
(MOVE 3 (SPECIAL MALISTV1) S)
(MOVE 2 -2 P)
(HRRZ@ 1 -3 P)
(CALL 5 (E !;) S)
(JRST 0 TAG4)
TAG15 (MOVE 1 -1 P)
(CAIE 1 (QUOTE !>) S)
(JRST 0 TAG16)
(MOVEI 5 (QUOTE NIL))
(MOVE 4 (SPECIAL MALISTV1) S)
(MOVE 3 (SPECIAL MALISTV2) S)
(MOVE 2 -3 P)
(HRRZ@ 1 -2 P)
(CALL 5 (E !?) S)
(JRST 0 TAG4)
TAG16 (CAIE 1 (QUOTE !;) S)
(JRST 0 TAG17)
(MOVEI 5 (QUOTE NIL))
(MOVE 4 (SPECIAL MALISTV1) S)
(MOVE 3 (SPECIAL MALISTV2) S)
(MOVE 2 -3 P)
(HRRZ@ 1 -2 P)
(CALL 5 (E !;) S)
(JRST 0 TAG4)
TAG17 (CAIE 1 (QUOTE !/,) S)
(JRST 0 TAG20)
(MOVE 4 (SPECIAL MALISTV1) S)
(MOVE 3 (SPECIAL MALISTV2) S)
(MOVE 2 -3 P)
(HRRZ@ 1 -2 P)
(CALL 4 (E COMMA) S)
(JRST 0 TAG4)
TAG20 (HLRZ@ 2 -2 P)
(HLRZ@ 1 -3 P)
(CALL 2 (E MATCH1) S)
(JUMPE 1 TAG21)
(HRRZ@ 2 -2 P)
(HRRZ@ 1 -3 P)
(CALL 2 (E MATCH1) S)
TAG21
TAG4 (SUB P (C 4 0 4 0))
(POPJ P)
NIL
(LAP COMMA SUBR)
(HLRZ@ 5 1)
(PUSH P 1)
(HRRZ@ 1 1)
(MOVEM 1 0 P)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(PUSH P 5)
(JUMPE 1 TAG2)
(HRRZ@ 1 3)
(JSP 6 SPECBIND)
(0 1 (SPECIAL MALIST) S)
(HLRZ@ 1 -4 P)
(CALL 1 (E *EVAL) S)
(PUSHJ P SPECSTR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL VAL) S)
(MOVE 3 -1 P)
(MOVE 2 1)
(MOVE 1 -3 P)
(CALL 3 (E MATCH2) S)
(JUMPE 1 TAG4)
(MOVE 3 -2 P)
(MOVE 2 (SPECIAL VAL) S)
(MOVE 1 0 P)
(CALL 3 (E MBINDV) S)
TAG4 (PUSHJ P SPECSTR)
(JRST 0 TAG1)
TAG2 (HRRZ@ 1 3)
(JSP 6 SPECBIND)
(0 1 (SPECIAL MALIST) S)
(MOVE 1 5)
(CALL 1 (E !/,1) S)
(PUSHJ P SPECSTR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL VAL) S)
(CAIE 1 (QUOTE *UNASSIGNED) S)
(JRST 0 TAG6)
(PUSH P (C 0 0 TAG7 0))
(PUSH P -1 P)
(PUSH P -5 P)
(HRRZ@ 1 -5 P)
(PUSH P 1)
(PUSH P -5 P)
(MOVE 1 -7 P)
(CAME 1 (SPECIAL MALISTV1) S)
(TDZA 1 1)
(MOVEI 1 (QUOTE T) S)
(PUSH P 1)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(MOVNI 6 6)
(JCALL 16 (E TRYASSIGN) S)
TAG7 (JRST 0 TAG5)
TAG6 (MOVE 3 -1 P)
(MOVE 2 1)
(MOVE 1 -3 P)
(CALL 3 (E MATCH2) S)
TAG5 (PUSHJ P SPECSTR)
TAG1 (SUB P (C 5 0 5 0))
(POPJ P)
NIL
(LAP MATCH2 SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL EXP) S)
(PUSH P 1)
(PUSH P 3)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG2)
(MOVE 1 -1 P)
(CALL 2 (E EQUAL) S)
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 -1 P)
(PUSH P 1)
(MOVEI 2 (QUOTE (!? !> !')) S)
(CALL 2 (E MEMQ#) S)
(JUMPE 1 TAG4)
(MOVE 4 -1 P)
(MOVE 3 (SPECIAL EXP) S)
(HRRZ@ 2 -2 P)
(HRRZ@ 2 2)
(HRRZ@ 1 -2 P)
(HLRZ@ 1 1)
(CALL 4 (E MBINDR) S)
(JRST 0 TAG3)
TAG4 (MOVE 1 0 P)
(CAIE 1 (QUOTE !/,) S)
(JRST 0 TAG5)
(HRRZ@ 1 -2 P)
(HLRZ@ 1 1)
(HRRZ@ 2 -2 P)
(HRRZ@ 2 2)
(PUSH P 1)
(PUSH P 2)
(JUMPE 2 TAG7)
(HRRZ@ 1 -3 P)
(JSP 6 SPECBIND)
(0 1 (SPECIAL MALIST) S)
(HLRZ@ 1 2)
(CALL 1 (E *EVAL) S)
(PUSHJ P SPECSTR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL VAL) S)
(MOVE 2 (SPECIAL EXP) S)
(CALL 2 (E EQUAL) S)
(JUMPE 1 TAG11)
(MOVE 3 -3 P)
(MOVE 2 (SPECIAL EXP) S)
(MOVE 1 -1 P)
(CALL 3 (E MBINDV) S)
TAG11 (PUSHJ P SPECSTR)
(JRST 0 TAG6)
TAG7 (HRRZ@ 1 -3 P)
(JSP 6 SPECBIND)
(0 1 (SPECIAL MALIST) S)
(MOVE 1 -1 P)
(CALL 1 (E !/,1) S)
(PUSHJ P SPECSTR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL VAL) S)
(CAIE 1 (QUOTE *UNASSIGNED) S)
(JRST 0 TAG13)
(HRRZ@ 3 -3 P)
(MOVE 2 (SPECIAL EXP) S)
(MOVE 1 -1 P)
(CALL 3 (E MSET) S)
(JRST 0 TAG12)
TAG13 (MOVE 2 (SPECIAL EXP) S)
(CALL 2 (E EQUAL) S)
TAG12 (PUSHJ P SPECSTR)
TAG6 (SUB P (C 2 0 2 0))
(JRST 0 TAG3)
TAG5 (CAIE 1 (QUOTE !;) S)
(JRST 0 TAG14)
(JSP 6 SPECBIND)
(0 0 (SPECIAL VALV) S)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(HRRZ@ 1 -4 P)
(HLRZ@ 1 1)
(HRRZ@ 2 -4 P)
(HRRZ@ 2 2)
(MOVEM 1 0 P)
(MOVEM 2 -1 P)
(HRRZ@ 2 -3 P)
(MOVE 1 0 P)
(CALL 2 (E ASSOC) S)
(MOVEM 1 (SPECIAL VALV) S)
(JUMPE 1 TAG24)
(CALL 1 (E CADR) S)
(MOVEM 1 (SPECIAL VALV) S)
(CAIE 1 (QUOTE *UNASSIGNED) S)
(JRST 0 TAG30)
(HRRZ@ 3 -3 P)
(MOVE 2 (SPECIAL EXP) S)
(MOVE 1 0 P)
(CALL 3 (E MSET) S)
(JRST 0 TAG27)
TAG30 (MOVE 2 (SPECIAL EXP) S)
(CALL 2 (E EQUAL) S)
TAG27 (JUMPE 1 TAG26)
(HRRZ@ 2 -3 P)
(MOVE 1 -1 P)
(CALL 2 (E SATISFY) S)
TAG26 (JRST 0 TAG23)
TAG24 (MOVE 1 0 P)
(CALL 1 (E CHECKVAL) S)
(JUMPE 1 TAG31)
(MOVE 2 (SPECIAL EXP) S)
(MOVE 1 (SPECIAL VALV) S)
(CALL 2 (E EQUAL) S)
(JUMPE 1 TAG33)
(HRRZ@ 2 -3 P)
(MOVE 1 -1 P)
(CALL 2 (E SATISFY) S)
TAG33 (JRST 0 TAG23)
TAG31 (MOVE 4 -3 P)
(MOVE 3 (SPECIAL EXP) S)
(MOVE 2 -1 P)
(MOVE 1 0 P)
(CALL 4 (E MBINDR) S)
TAG23 (PUSHJ P SPECSTR)
(SUB P (C 2 0 2 0))
(JRST 0 TAG3)
TAG14 (CAIE 1 (QUOTE !<) S)
(JRST 0 TAG34)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG3)
TAG34 (MOVE 1 (SPECIAL EXP) S)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG35)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG3)
TAG35 (MOVE 3 -1 P)
(HLRZ@ 2 (SPECIAL EXP) S)
(MOVE 1 0 P)
(CALL 3 (E MATCH2) S)
(JUMPE 1 TAG36)
(MOVE 3 -1 P)
(HRRZ@ 2 (SPECIAL EXP) S)
(HRRZ@ 1 -2 P)
(CALL 3 (E MATCH2) S)
TAG36
TAG3 (SUB P (C 1 0 1 0))
TAG1 (SUB P (C 2 0 2 0))
(JRST 0 SPECSTR)
NIL
(LAP !? SUBR)
(PUSH P 1)
(HRRZ@ 1 1)
(PUSH P 1)
(HLRZ@ 1 -1 P)
(MOVEM 2 -1 P)
(MOVE 2 4)
(PUSH P 1)
(MOVE 1 -2 P)
(PUSH P 3)
(PUSH P 4)
(PUSH P 5)
(CALL 2 (E FINDVARS) S)
(JSP 6 SPECBIND)
(0 1 (SPECIAL VARS) S)
(JUMPE 1 TAG2)
(MOVE 1 0 P)
(JUMPN 1 TAG5)
(MOVE 1 (SPECIAL VARS) S)
(CALL 1 (E HASMUSTASSIGNS) S)
(JUMPE 1 TAG6)
(TDZA 1 1)
TAG6 (MOVEI 1 (QUOTE T) S)
TAG5 (JUMPE 1 TAG4)
(MOVE 1 (SPECIAL VARS) S)
(CALL 1 (E HASVARS) S)
(JUMPE 1 TAG10)
(MOVE 3 -2 P)
(MOVEI 2 (QUOTE *UNASSIGNED) S)
(MOVE 1 -3 P)
(CALL 3 (E MBINDV) S)
(JRST 0 TAG7)
TAG10 (MOVE 1 -3 P)
(JUMPE 1 TAG12)
(TDZA 1 1)
TAG12 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG11)
(HRRZ@ 2 -1 P)
(MOVE 1 -5 P)
(CALL 2 (E VARSUBST) S)
(MOVE 4 -2 P)
(MOVE 3 1)
(MOVE 2 -4 P)
(MOVE 1 -3 P)
(CALL 4 (E MBINDR) S)
TAG11
TAG7
TAG4 (JRST 0 TAG1)
TAG2 (MOVE 4 -2 P)
(MOVE 3 -5 P)
(MOVE 2 -4 P)
(MOVE 1 -3 P)
(CALL 4 (E MBINDR) S)
TAG1 (SUB P (C 6 0 6 0))
(JRST 0 SPECSTR)
NIL
(DEFPROP !? CP-MATCH CPRINT)
(LAP !> SUBR)
(PUSH P 1)
(HRRZ@ 1 1)
(PUSH P 1)
(HLRZ@ 1 -1 P)
(MOVEM 2 -1 P)
(MOVE 2 4)
(PUSH P 1)
(MOVE 1 -2 P)
(PUSH P 3)
(PUSH P 4)
(CALL 2 (E FINDVARS) S)
(JSP 6 SPECBIND)
(0 1 (SPECIAL VARS) S)
(JUMPE 1 TAG2)
(CALL 1 (E HASVARS) S)
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG3)
TAG4 (MOVE 1 -2 P)
(JUMPE 1 TAG10)
(TDZA 1 1)
TAG10 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG7)
(HRRZ@ 2 0 P)
(MOVE 1 -4 P)
(CALL 2 (E VARSUBST) S)
(MOVE 4 -1 P)
(MOVE 3 1)
(MOVE 2 -3 P)
(MOVE 1 -2 P)
(CALL 4 (E MBINDR) S)
TAG7
TAG3 (JRST 0 TAG1)
TAG2 (MOVE 4 -1 P)
(MOVE 3 -4 P)
(MOVE 2 -3 P)
(MOVE 1 -2 P)
(CALL 4 (E MBINDR) S)
TAG1 (SUB P (C 5 0 5 0))
(JRST 0 SPECSTR)
NIL
(DEFPROP !> CP-MATCH CPRINT)
(LAP TRYASSIGN LSUBR)
(JSP 3 *LCALL)
(JSP 6 SPECBIND)
(0 0 (SPECIAL VARS) S)
(0 0 (SPECIAL MALIST) S)
(MOVE 1 -1 P)
(HRRZ 1 2 1)
(MOVE 2 -1 P)
(HRRZ 2 4 2)
(CALL 2 (E FINDVARS) S)
(MOVEM 1 (SPECIAL VARS) S)
(MOVE 1 -1 P)
(HRRZ 1 1 1)
(MOVE 2 -1 P)
(HRRZ 2 2 2)
(MOVE 3 -1 P)
(HRRZ 3 3 3)
(MOVEM 3 (SPECIAL MALIST) S)
(MOVE 3 -1 P)
(HRRZ 3 4 3)
(MOVE 4 -1 P)
(HRRZ 4 5 4)
(MOVE 5 -1 P)
(HRRZ 5 6 5)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(PUSH P 5)
(MOVE 1 (SPECIAL VARS) S)
(JUMPE 1 TAG5)
(MOVE 1 4)
(JUMPN 1 TAG10)
(MOVE 1 (SPECIAL VARS) S)
(CALL 1 (E HASMUSTASSIGNS) S)
(JUMPE 1 TAG11)
(TDZA 1 1)
TAG11 (MOVEI 1 (QUOTE T) S)
TAG10 (JUMPE 1 TAG7)
(MOVE 1 (SPECIAL VARS) S)
(CALL 1 (E HASVARS) S)
(JUMPN 1 TAG12)
(JSP 6 SPECBIND)
(0 0 (SPECIAL VAL) S)
(MOVE 3 (SPECIAL MALIST) S)
(MOVE 2 (SPECIAL VAL) S)
(MOVE 1 -4 P)
(CALL 3 (E MSET) S)
(MOVE 2 (SPECIAL MALIST) S)
(MOVE 1 0 P)
(CALL 2 (E SATISFY) S)
(MOVEI 1 (QUOTE NIL))
(PUSHJ P SPECSTR)
(HRRZ@ 2 -2 P)
(PUSH P 1)
(MOVE 1 -4 P)
(CALL 2 (E VARSUBST) S)
(CALLF@ 1 0 P)
(SUB P (C 1 0 1 0))
TAG12
TAG7 (JRST 0 TAG4)
TAG5 (MOVE 3 (SPECIAL MALIST) S)
(MOVE 2 -3 P)
(MOVE 1 -4 P)
(CALL 3 (E MSET) S)
(MOVE 2 (SPECIAL MALIST) S)
(MOVE 1 0 P)
(CALL 2 (E SATISFY) S)
TAG4 (MOVEI 1 (QUOTE NIL))
(SUB P (C 5 0 5 0))
(JRST 0 SPECSTR)
NIL
(LAP !< SUBR)
(PUSH P 2)
(MOVE 2 4)
(PUSH P 1)
(MOVE 1 -1 P)
(PUSH P 3)
(PUSH P 4)
(CALL 2 (E FINDVARS) S)
(JSP 6 SPECBIND)
(0 1 (SPECIAL VARS) S)
(JUMPE 1 TAG2)
(CALL 1 (E HASVARS) S)
(JUMPE 1 TAG4)
(MOVE 1 -2 P)
(JUMPE 1 TAG6)
(TDZA 1 1)
TAG6 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG5)
(HRRZ@ 2 0 P)
(MOVE 1 -3 P)
(CALL 2 (E VARSUBST) S)
(MOVE 3 -1 P)
(MOVE 2 1)
(MOVE 1 -2 P)
(CALL 3 (E MBIND) S)
TAG5
TAG4
TAG2 (SUB P (C 4 0 4 0))
(JRST 0 SPECSTR)
NIL
(DEFPROP !< CP-MATCH CPRINT)
(LAP !; SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL VALV) S)
(PUSH P 1)
(PUSH P 2)
(PUSH P 3)
(PUSH P 4)
(PUSH P 5)
(PUSH P (C 0 0 (QUOTE NIL) 0))
(PUSH P (C 0 0 (QUOTE NIL) 0))
(HLRZ@ 1 -6 P)
(HRRZ@ 2 -6 P)
(MOVEM 1 0 P)
(MOVEM 2 -1 P)
(HRRZ@ 2 -4 P)
(MOVE 1 0 P)
(CALL 2 (E ASSOC) S)
(MOVEM 1 (SPECIAL VALV) S)
(JUMPE 1 TAG10)
(CALL 1 (E CADR) S)
(MOVEM 1 (SPECIAL VALV) S)
(CAIE 1 (QUOTE *UNASSIGNED) S)
(JRST 0 TAG12)
(PUSH P (C 0 0 TAG13 0))
(PUSH P -1 P)
(PUSH P -7 P)
(HRRZ@ 1 -7 P)
(PUSH P 1)
(PUSH P -7 P)
(PUSH P -7 P)
(PUSH P -7 P)
(MOVNI 6 6)
(JCALL 16 (E TRYASSIGN) S)
TAG13 (JRST 0 TAG11)
TAG12 (MOVE 3 -3 P)
(MOVE 2 1)
(MOVE 1 -5 P)
(CALL 3 (E MATCH2) S)
(JUMPE 1 TAG14)
(HRRZ@ 2 -4 P)
(MOVE 1 -1 P)
(CALL 2 (E SATISFY) S)
TAG14
TAG11 (JRST 0 TAG7)
TAG10 (MOVE 1 0 P)
(CALL 1 (E CHECKVAL) S)
(JUMPE 1 TAG15)
(MOVE 3 -3 P)
(MOVE 2 (SPECIAL VALV) S)
(MOVE 1 -5 P)
(CALL 3 (E MATCH2) S)
(JUMPE 1 TAG17)
(HRRZ@ 2 -4 P)
(MOVE 1 -1 P)
(CALL 2 (E SATISFY) S)
TAG17 (JRST 0 TAG7)
TAG15 (MOVE 1 -2 P)
(JUMPE 1 TAG20)
(MOVE 4 -3 P)
(MOVE 3 -4 P)
(MOVE 2 -5 P)
(MOVE 1 -6 P)
(CALL 4 (E !>) S)
(JRST 0 TAG7)
TAG20 (MOVEI 5 (QUOTE NIL))
(MOVE 4 -3 P)
(MOVE 3 -4 P)
(MOVE 2 -5 P)
(MOVE 1 -6 P)
(CALL 5 (E !?) S)
TAG7 (SUB P (C 7 0 7 0))
(JRST 0 SPECSTR)
NIL
(DEFPROP !; CP-MATCH CPRINT)
(LAP CHECKVAL SUBR)
(PUSH P 1)
(PUSH P (C 0 0 TAG3 0))
(PUSH P 1)
(MOVNI 6 1)
(JCALL 16 (E VLOC) S)
TAG3 (MOVEM 1 (SPECIAL VALV) S)
(JUMPE 1 TAG2)
(CALL 1 (E CADR) S)
(MOVEM 1 (SPECIAL VALV) S)
(CAIE 1 (QUOTE *UNASSIGNED) S)
(JRST 0 TAG4)
(TDZA 1 1)
TAG4 (MOVEI 1 (QUOTE T) S)
(JRST 0 TAG1)
TAG2 (MOVE 1 0 P)
(CALL 1 (E BOUNDP) S)
(MOVEM 1 (SPECIAL VALV) S)
(JUMPE 1 TAG5)
(HRRZ@ 1 1)
(MOVEM 1 (SPECIAL VALV) S)
(CAIE 1 (QUOTE *UNASSIGNED) S)
(JRST 0 TAG6)
(TDZA 1 1)
TAG6 (MOVEI 1 (QUOTE T) S)
TAG5
TAG1 (SUB P (C 1 0 1 0))
(POPJ P)
NIL
(LAP FINDVARS SUBR)
(PUSH P 1)
(PUSH P 2)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG2)
(MOVEI 1 (QUOTE NIL))
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 -1 P)
(PUSH P 1)
(CAIE 1 (QUOTE !/,) S)
(JRST 0 TAG4)
(HRRZ@ 1 -2 P)
(HLRZ@ 1 1)
(HRRZ@ 2 -2 P)
(HRRZ@ 2 2)
(PUSH P 1)
(PUSH P 2)
(JUMPE 2 TAG10)
(TDZA 1 1)
TAG10 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG7)
(MOVE 1 (SPECIAL NOBIND) S)
TAG7 (JUMPE 1 TAG6)
(HRRZ@ 3 -3 P)
(MOVE 2 -1 P)
(MOVEI 1 (QUOTE !/,) S)
(CALL 3 (E GETSPEC) S)
(JRST 0 TAG5)
TAG6 (HRRZ@ 1 -3 P)
(JSP 6 SPECBIND)
(0 1 (SPECIAL MALIST) S)
(HLRZ@ 1 0 P)
(CALL 1 (E *EVAL) S)
(PUSHJ P SPECSTR)
(MOVE 3 -3 P)
(MOVE 2 1)
(MOVE 1 -1 P)
(CALL 3 (E MBINDV) S)
(JUMPE 1 TAG11)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E NCONS) S)
TAG11
TAG5 (SUB P (C 2 0 2 0))
(JRST 0 TAG3)
TAG4 (CAIE 1 (QUOTE !;) S)
(JRST 0 TAG12)
(HRRZ@ 1 -2 P)
(HLRZ@ 1 1)
(HRRZ@ 2 2)
(JSP 6 SPECBIND)
(0 2 (SPECIAL MALIST) S)
(PUSH P 1)
(CALL 1 (E ASSIGNED?) S)
(JUMPE 1 TAG14)
(MOVEI 1 (QUOTE NIL))
(CALL 1 (E NCONS) S)
(JRST 0 TAG13)
TAG14 (MOVE 1 (SPECIAL NOBIND) S)
(JUMPN 1 TAG16)
(MOVE 2 (SPECIAL MALIST) S)
(MOVE 1 0 P)
(CALL 2 (E ASSOC) S)
TAG16 (JUMPE 1 TAG15)
(MOVE 3 (SPECIAL MALIST) S)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE !;) S)
(CALL 3 (E GETSPEC) S)
(JRST 0 TAG13)
TAG15 (MOVE 3 -2 P)
(MOVEI 2 (QUOTE *UNASSIGNED) S)
(MOVE 1 0 P)
(CALL 3 (E MBINDV) S)
(JUMPE 1 TAG17)
(MOVEI 1 (QUOTE !>) S)
(CALL 1 (E NCONS) S)
TAG17
TAG13 (PUSHJ P SPECSTR)
(SUB P (C 1 0 1 0))
(JRST 0 TAG3)
TAG12 (CALL 1 (E ACTOR) S)
(JUMPE 1 TAG20)
(MOVE 1 (SPECIAL NOBIND) S)
(JUMPE 1 TAG22)
(HRRZ@ 3 -1 P)
(HRRZ@ 2 -2 P)
(HLRZ@ 2 2)
(MOVE 1 0 P)
(CALL 3 (E GETSPEC) S)
(JRST 0 TAG21)
TAG22 (MOVE 3 -1 P)
(MOVEI 2 (QUOTE *UNASSIGNED) S)
(HRRZ@ 1 -2 P)
(HLRZ@ 1 1)
(CALL 3 (E MBINDV) S)
(JUMPE 1 TAG23)
(MOVE 1 0 P)
(CALL 1 (E NCONS) S)
TAG23
TAG21 (JRST 0 TAG3)
TAG20 (PUSH P (C 0 0 TAG24 0))
(MOVE 2 -2 P)
(MOVE 1 -1 P)
(CALL 2 (E FINDVARS) S)
(PUSH P 1)
(MOVE 2 -3 P)
(HRRZ@ 1 -4 P)
(CALL 2 (E FINDVARS) S)
(PUSH P 1)
(MOVNI 6 2)
(JCALL 16 (E NCONC) S)
TAG24
TAG3 (SUB P (C 1 0 1 0))
TAG1 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP HASMUSTASSIGNS SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL VARS) S)
(PUSH P 1)
TAG1 (MOVE 1 0 P)
(JUMPN 1 TAG6)
(MOVE 1 0 P)
(JRST 0 TAG2)
TAG6 (MOVEI 2 (QUOTE (!> !')) S)
(HLRZ@ 1 0 P)
(CALL 2 (E MEMQ#) S)
(JUMPE 1 TAG11)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG2)
TAG11 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG2 (SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(LAP HASVARS SUBR)
(JSP 6 SPECBIND)
(0 1 (SPECIAL VARS) S)
(PUSH P 1)
TAG1 (MOVE 1 0 P)
(JUMPN 1 TAG6)
(MOVE 1 0 P)
(JRST 0 TAG2)
TAG6 (HLRZ@ 1 0 P)
(JUMPE 1 TAG11)
(MOVEI 1 (QUOTE T) S)
(JRST 0 TAG2)
TAG11 (HRRZ@ 1 0 P)
(MOVEM 1 0 P)
(JRST 0 TAG1)
TAG2 (SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(LAP VARSUBST SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL MALIST) S)
(PUSH P 1)
(CALL 1 (E ATOM) S)
(JUMPE 1 TAG2)
(MOVE 1 0 P)
(JRST 0 TAG1)
TAG2 (HLRZ@ 1 0 P)
(CALL 1 (E ACTOR) S)
(JUMPE 1 TAG3)
(MOVE 2 (SPECIAL MALIST) S)
(MOVE 1 0 P)
(CALL 2 (E ACTORSUBST) S)
(JRST 0 TAG1)
TAG3 (MOVE 2 (SPECIAL MALIST) S)
(HLRZ@ 1 0 P)
(CALL 2 (E VARSUBST) S)
(MOVE 2 (SPECIAL MALIST) S)
(PUSH P 1)
(HRRZ@ 1 -1 P)
(CALL 2 (E VARSUBST) S)
(POP P 2)
(CALL 2 (E XCONS) S)
TAG1 (SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(LAP ACTOR SUBR)
(MOVEI 2 (QUOTE (!> !? !' !< !/, !;)) S)
(JCALL 2 (E MEMQ#) S)
NIL
(LAP ACTORSUBST SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL MALIST) S)
(HRRZ@ 2 1)
(HLRZ@ 2 2)
(PUSH P 1)
(MOVE 1 2)
(CALL 1 (E !/,1) S)
(JSP 6 SPECBIND)
(0 1 (SPECIAL VAL) S)
(CAIE 1 (QUOTE *UNASSIGNED) S)
(JRST 0 TAG2)
(MOVE 1 0 P)
(JRST 0 TAG1)
TAG2
TAG1 (SUB P (C 1 0 1 0))
(PUSHJ P SPECSTR)
(JRST 0 SPECSTR)
NIL
(LAP GETSPEC SUBR)
(JSP 6 SPECBIND)
(0 3 (SPECIAL MALIST) S)
(PUSH P 1)
(PUSH P 2)
(MOVE 1 2)
(CALL 1 (E !/,1) S)
(CAIE 1 (QUOTE *UNASSIGNED) S)
(JRST 0 TAG2)
(MOVE 1 (SPECIAL NOBIND) S)
(JUMPE 1 TAG4)
(MOVEI 1 (QUOTE (UNASSIGNED VARIABLE IN INSTANCE)) S)
(CALL 17 (E CERR) S)
(JRST 0 TAG3)
TAG4 (MOVE 1 -1 P)
(CALL 1 (E NCONS) S)
TAG3 (JRST 0 TAG1)
TAG2 (MOVEI 1 (QUOTE NIL))
(CALL 1 (E NCONS) S)
TAG1 (SUB P (C 2 0 2 0))
(JRST 0 SPECSTR)
NIL
(LAP MBIND SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL VAL) S)
(PUSH P 1)
(PUSH P 3)
(MOVE 1 (SPECIAL NOBIND) S)
(JUMPE 1 TAG2)
(HRRZ@ 3 3)
(MOVE 1 -1 P)
(CALL 3 (E MSET) S)
(JRST 0 TAG1)
TAG2 (MOVE 1 2)
(CALL 1 (E NCONS) S)
(MOVE 2 -1 P)
(CALL 2 (E XCONS) S)
(HRRZ@ 2 3)
(CALL 2 (E CONS) S)
(HRRM@ 1 3)
(MOVE 1 3)
TAG1 (SUB P (C 2 0 2 0))
(JRST 0 SPECSTR)
NIL
(LAP MBINDV SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL VAL) S)
(PUSH P 1)
(PUSH P 3)
(JUMPE 1 TAG2)
(TDZA 1 1)
TAG2 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG1)
(MOVE 1 (SPECIAL NOBIND) S)
(JUMPE 1 TAG3)
(HRRZ@ 3 0 P)
(MOVE 2 (SPECIAL VAL) S)
(MOVE 1 -1 P)
(CALL 3 (E MSET) S)
(JRST 0 TAG1)
TAG3 (MOVE 1 (SPECIAL VAL) S)
(CALL 1 (E NCONS) S)
(MOVE 2 -1 P)
(CALL 2 (E XCONS) S)
(HRRZ@ 2 0 P)
(CALL 2 (E CONS) S)
(HRRM@ 1 0 P)
(MOVE 1 0 P)
TAG1 (SUB P (C 2 0 2 0))
(JRST 0 SPECSTR)
NIL
(LAP MBINDR SUBR)
(JSP 6 SPECBIND)
(0 3 (SPECIAL VAL) S)
(PUSH P 1)
(PUSH P 2)
(PUSH P 4)
(JUMPE 1 TAG2)
(TDZA 1 1)
TAG2 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG1)
(MOVE 3 0 P)
(MOVE 2 (SPECIAL VAL) S)
(MOVE 1 -2 P)
(CALL 3 (E MBIND) S)
(JUMPE 1 TAG4)
(HRRZ@ 2 0 P)
(MOVE 1 -1 P)
(CALL 2 (E SATISFY) S)
TAG4
TAG1 (SUB P (C 3 0 3 0))
(JRST 0 SPECSTR)
NIL
(LAP !/, FSUBR)
(HLRZ@ 1 1)
(JCALL 1 (E !/,1) S)
NIL
(DEFPROP !/, CP-MATCH CPRINT)
(LAP !/,1 SUBR)
(MOVE 2 (SPECIAL MALIST) S)
(PUSH P 1)
(CALL 2 (E ASSOC) S)
(PUSH P 1)
(JUMPE 1 TAG2)
(CALL 1 (E CADR) S)
(JRST 0 TAG1)
TAG2 (PUSH P (C 0 0 TAG3 0))
(PUSH P -2 P)
(MOVNI 6 1)
(JCALL 16 (E RVALUE) S)
TAG3
TAG1 (SUB P (C 2 0 2 0))
(POPJ P)
NIL
(LAP SATISFY SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL MALIST) S)
(PUSH P 1)
(JUMPE 1 TAG2)
(TDZA 1 1)
TAG2 (MOVEI 1 (QUOTE T) S)
(JUMPN 1 TAG1)
(MOVE 2 0 P)
(MOVEI 1 (QUOTE AND#) S)
(CALL 2 (E APPLY#) S)
TAG1 (SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(LAP MSET SUBR)
(JSP 6 SPECBIND)
(0 2 (SPECIAL VAL) S)
(MOVE 2 3)
(CALL 2 (E ASSOC) S)
(PUSH P 1)
(MOVE 1 0 P)
(JUMPE 1 TAG5)
(HRRZ@ 1 1)
(PUSH P (SPECIAL VAL) S)
(POP P 2)
(HRLM@ 2 1)
(JRST 0 TAG4)
TAG5 (MOVEI 1 (QUOTE (VARIABLE (QUOTE VAR) UNBOUND IN MATCH ALIST)) S)
(CALL 17 (E CERR) S)
TAG4 (MOVEI 1 (QUOTE T) S)
(SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(LAP ASSIGNED? SUBR)
(JSP 6 SPECBIND)
(0 0 (SPECIAL VAL) S)
(PUSH P 1)
(PUSH P (C 0 0 TAG6 0))
(PUSH P 1)
(MOVNI 6 1)
(JCALL 16 (E VLOC) S)
TAG6 (MOVEM 1 (SPECIAL VAL) S)
(JUMPE 1 TAG5)
(CALL 1 (E CADR) S)
(PUSH P 1)
(CAIE 1 (QUOTE *UNASSIGNED) S)
(JRST 0 TAG7)
(TDZA 1 1)
TAG7 (MOVEI 1 (QUOTE T) S)
(SUB P (C 1 0 1 0))
(JRST 0 TAG4)
TAG5 (MOVE 1 0 P)
(CALL 1 (E BOUNDP) S)
(MOVEM 1 (SPECIAL VAL) S)
(JUMPE 1 TAG10)
(HRRZ@ 1 1)
(PUSH P 1)
(CAIE 1 (QUOTE *UNASSIGNED) S)
(JRST 0 TAG11)
(TDZA 1 1)
TAG11 (MOVEI 1 (QUOTE T) S)
(SUB P (C 1 0 1 0))
TAG10
TAG4 (SUB P (C 1 0 1 0))
(JRST 0 SPECSTR)
NIL
(LAP CNVINT SUBR)
(CLEARM 0 (SPECIAL RUNF) S)
(JCALL 0 (E START) S)
NIL
(%DEREAD 72 (FUNCTION COLMAC) 12)
(%DEREAD 100 (FUNCTION ATMAC) 12)
(%DEREAD 41 (FUNCTION EXMAC) 12)
(%DEREAD 54 (FUNCTION COMMAC) 12)
(%DEREAD 73 (FUNCTION EXMAC) 12)